Sub VideoFrameAtR(dir As String, f As String, ms As Long) As Bitmap
Dim r As Reflector
Dim obj As Object
Dim bmp As Bitmap
obj = r.CreateObject("android.media.MediaMetadataRetriever")
r.Target = obj
r.RunMethod2("setDataSource", File.Combine(dir, f), "java.lang.String")
bmp = r.RunMethod3("getFrameAtTime", ms*1000, "java.lang.long", 3, "java.lang.int") ' 3=OPTION_CLOSEST
Return bmp
End Sub