Sub button1_click
Dim bmp As B4XBitmap=B4XTable1.mBase.Snapshot
Dim out As OutputStream
out = File.OpenOutput(s.GetSafeDirDefaultExternal("yo"), DateTime.Now&".png", False)
bmp.WriteToStream(out, 100, "PNG")
out.Close
ToastMessageShow("check snapshot.example/.jpg",False)
End Sub