Sub RotateImage(original As Bitmap, degree As Float) As Bitmap
Dim matrix As JavaObject
matrix.InitializeNewInstance("android.graphics.Matrix", Null)
matrix.RunMethod("postRotate", Array(degree))
Dim bmp As JavaObject
bmp.InitializeStatic("android.graphics.Bitmap")
Dim NewImage As Bitmap = bmp.RunMethod("createBitmap", Array(original, 0, 0, original.Width, original.Height, _
matrix, True))
Return NewImage
End Sub
Sub camera_PictureTaken (Data() As Byte)
exCam.SavePictureToFile(Data,File.DirInternalCache,"temp.png")
pnlcamera.Bitmap = RotateImage(LoadBitmap(File.DirInternalCache,"temp.png"),90)
End Sub