Sub Class_Globals
Private r As Reflector
Private target As Object
Private event As String
Private mr As Object
End Sub
Public Sub Initialize (Panel1 As Panel, TargetModule As Object, EventName As String)
r.target=mr
mr=r.CreateObject("android.media.MediaRecorder")
End Sub
Public Sub SetAudioSource(source As Int)
r.target=mr
r.RunMethod2("setAudioSource",source,"java.lang.int")
End Sub