Sub Cam_Complete (Success As Boolean, image As Bitmap, VideoPath As String)
If Success Then
If image.IsInitialized Then
imageview.ContentMode = imageview.MODE_FIT
Dim out As OutputStream = File.OpenOutput(File.DirLibrary & "/" & "TestBitmap", "bitmap.jpeg", False)
If Switch1.Value Then
Dim im As Bitmap
'im = image.Rotate(90)
im = image.Crop(0,0,image.Width, image.Height)
imageview.Bitmap = im
im.WriteToStream(out, 50, "JPEG")
Else
imageview.Bitmap = image
image.WriteToStream(out, 50, "JPEG")
End If
out.Close
Dim p As Phone
p.AddImageToAlbum(LoadBitmap(File.DirLibrary & "/" & "TestBitmap", "bitmap.jpeg"))
End If
End If
End Sub