Sub Activity_WriteRotatedBitmap (bitmapRotated As Bitmap)
Dim exifdataInstance As ExifData
Dim outputstreamInstance As OutputStream
Try
outputstreamInstance = File.OpenOutput (moduleCommon.stringTaskDirectory, "Photo_" & AnswerQuestions.intPhotoOrdinal & ".jpg", False)
bitmapRotated.WriteToStream (outputstreamInstance, 100, "JPEG")
outputstreamInstance.Close
exifdataInstance.Initialize (moduleCommon.stringTaskDirectory, "Photo_" & AnswerQuestions.intPhotoOrdinal & ".jpg")
exifdataInstance.setAttribute (exifdataInstance.TAG_ORIENTATION, exifdataInstance.ORIENTATION_NORMAL)
exifdataInstance.saveAttributes
Catch
booleanError = True
End Try
End Sub