Dim fileTypeMap As Map = CreateMap("png":"PNG","jpg":"JPEG")
Dim fileType As String = "png"
If jpg.Checked Then fileType = "jpg"
Dim Out As OutputStream = File.OpenOutput(File.DirDefaultExternal,fileName.Text & "." & fileType, False) ' for possibly save image
cnvs.Bitmap.WriteToStream(Out, 100, fileTypeMap.Get(fileType)) ' cnvs.Bitmap.WriteToStream(Out, 100, "JPEG")