Dim bmp As Bitmap
Dim rbmp As RSImageProcessing
Dim casa As String
Dim exif As ExifData
rbmp.Initialize
bmp.Initialize(FP, "1.jpg")
exif.Initialize(FP, "1.jpg")
casa = exif.getAttribute(exif.TAG_ORIENTATION)
If casa = 6 Then
exif.setAttribute(exif.TAG_ORIENTATION, 1)
exif.saveAttributes
If bmp.width>bmp.height Then
bmp = rbmp.Rotate(bmp, 90)
rbmp.writeBitmapToFile(bmp,FP ,"1.jpg", 100 )
End If
End If