Sub nextPanel_Click
Dim Out As OutputStream
[COLOR=DarkRed] [B]bmp_note[/B].Initialize3(cnvs_note.Bitmap)[/COLOR]
fileNameFull = panelNum & ".PNG"
Out = File.OpenOutput(File.DirRootExternal & "/temp",[B]fileNameFull[/B], False)
[B]bmp_note[/B].WriteToStream(out, 100, "PNG")
Out.Close
[COLOR=DarkRed] [B] bmp_NotePart[/B].InitializeMutable(300,300)
cnvs_note.Initialize2(bmp_NotePart)[/COLOR]
FileNamePart = panelNum & "_p.PNG"
Out = File.OpenOutput(File.DirRootExternal & "/temp",[B]fileNamePart[/B], False)
[B]bmp_NotePart[/B].WriteToStream(out, 100, "PNG")
Out.Close
cnvs_note.Initialize(pnl_notePanel)
End Sub