Sub Globals
Dim vv As VideoView
' .......................
' .......................
' .......................
Dim vidfile As String
vidfile = File.Combine(Dir, VideoName)
Dim rfl As Reflector
Dim obj As Object
Dim b As Bitmap
obj = rfl.CreateObject("android.media.MediaMetadataRetriever")
rfl.Target = obj
rfl.RunMethod2("setDataSource", vidfile, "java.lang.String")
b = rfl.RunMethod3("getFrameAtTime", 0, "java.lang.long", 3, "java.lang.int")
HeightVideo= b.Height
WidthVideo= b.Width
vv.Initialize("vv")
Activity.AddView(vv,(100%x-WidthVideo)/2, (100%y-HeightVideo)/2,WidthVideo ,HeightVideo)