Sub Globals
Private canvas1 As Canvas
Private count As Int = 0
End Sub
....
' draw, save the bitmap before drawing
' go back when you need using sub back_draw
....
Sub save_drawing
Dim Out As OutputStream
Out = File.OpenOutput(File.DirRootExternal, "save" & count & .png", False)
canvas1.Bitmap.WriteToStream(Out, 100, "PNG")
Out.Close
count = count + 1
End Sub
Sub back_draw
count = Max(count - 1, 0)
canvas1.Bitmap.Initialize(File.DirRootExternal, "save" & count & ".png")
End Sub