Sub Btn1_Click
Dim Obj1 As Reflector
Obj1.Target = Obj1.CreateObject("android.provider.Settings$System")
Obj1.Target = Obj1.GetField("DEFAULT_NOTIFICATION_URI")
Dim args(2) As Object
args(0) = Obj1.GetContext
args(1) = Obj1.Target
Dim types(2) As String
types(0) = "android.content.Context"
types(1) = "android.net.Uri"
Obj1.Target = Obj1.RunStaticMethod("android.media.MediaPlayer", "create", args, types)
Obj1.RunMethod("start")
End Sub