Sub videoRecorder_RecordComplete (Success As Boolean)
Log(Success)
If Success Then
' vv.LoadVideo(File.DirRootExternal, "1.mp4")
' vv.Play
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")
Dim i, j, h, w As Int
Dim iv As ImageView
i = b.Height * 0.3
j = b.Width * 0.5
h = Activity.Height
w = Activity.Width
iv.Initialize("")
Activity.AddView(iv, (w - j) / 2, (h - i) / 3, j, i)
iv.Bitmap = b
End If
End Sub