Sub Activity_Create(FirstTime As Boolean)
Dim vv As VideoView
vv.Initialize("vv")
Activity.AddView(vv, 0, 0, 100%X, 100%y)
vv.LoadVideo(File.DirRootExternal, "DCIM/Camera/1.mp4")
vv.Play
CallSubDelayed2(Me, "MuteVideo", vv)
End Sub
Sub muteVideo (vv As VideoView)
Dim r1, r2 As Reflector
r1.Target = vv
r1.Target = r1.GetField("mMediaPlayer")
If r1.Target = Null Then
CallSubDelayed2(Me, "MuteVideo", vv)
Return
End If
Dim mp As MediaPlayer
r2.Target = mp
r2.SetField2("mp", r1.Target)
mp.SetVolume(0,0)
End Sub