Sub TakeScreenshot
DateTime.DateFormat = "ddMMyyyyHHmmss"
now = DateTime.now
dt = DateTime.Date(now)
Obj1.Target = Obj1.GetActivityBA
Obj1.Target = Obj1.GetField("vg")
bmp.InitializeMutable(Activity.Width, Activity.Height)
c.Initialize2(bmp)
Dim args(1) As Object
Dim types(1) As String
Obj2.Target = c
Obj2.Target = Obj2.GetField("canvas")
args(0) = Obj2.Target
types(0) = "android.graphics.Canvas"
Obj1.RunMethod4("draw", args, types)
Dim Out As OutputStream
Out = File.OpenOutput(File.DirDefaultExternal & "/Mapas" , dt & ".png", False)
bmp.WriteToStream(Out, 100, "PNG")
Out.Close
ToastMessageShow("Guardando en " & File.DirDefaultExternal & "\Mapas\" & dt & ".png", False)
End Sub