Sub MediaControllerVisible(VidV As VideoView, visible As Boolean)
Dim r As Reflector
r.Target = VidV
r.Target = r.GetField("mMediaController")
If visible Then
r.RunMethod2("setLeft", 100dip, "java.lang.int")
r.RunMethod2("setTop", 100dip, "java.lang.int")
r.RunMethod2("show", 0, "java.lang.int")
Else
r.RunMethod2("hide", 0, "java.lang.int")
End If
End Sub