Spanish [SOLUCIONADO] CARGAR IMAGEN EN IMAGEVIEW

#Region  Project Attributes 
 #ApplicationLabel: rotar
 #VersionCode: 1
 #VersionName: 
 'SupportedOrientations possible values: unspecified, landscape or portrait.
 #SupportedOrientations: unspecified
 #CanInstallToExternalStorage: False
#End Region
#Region  Activity Attributes 
 #FullScreen: False
 #IncludeTitle: True
#End Region
Sub Process_Globals
 'These global variables will be declared once when the application starts.
 'These variables can be accessed from all modules.
End Sub
Sub Globals
 'These global variables will be redeclared each time the activity is created.
 'These variables can only be accessed from this module.
 Dim gsdirimg As String
 Dim imagen                 As Bitmap
 Dim nombreimg                As String
 
 Dim bitmapOriginal                                                          As Bitmap
 Dim bitmapRotated                                                           As Bitmap
 Dim exifdataInstance                                                        As ExifData
 Dim booleanNeedToWriteRotatedBitmap,booleanError       As Boolean
 
 
 Private imgAntes As ImageView
 Private imgDespues As ImageView
 
 
End Sub

Sub Activity_Create(FirstTime As Boolean)
 Activity.LoadLayout("1")
 gsdirimg = Starter.rp.GetSafeDirDefaultExternal("")
 File.Copy(File.DirAssets, "7.jpg", gsdirimg, "7.jpg")
 Log("Archivo Copiado")
 Dim bmp As Bitmap
 bmp.Initializesample(gsdirimg, "7.jpg",100%x,100%y)
 imgAntes.Bitmap=bmp
 
 imgDespues.Bitmap=GetRotatedBitmap
 
End Sub
Sub GetRotatedBitmap As Bitmap
 Dim bitmapOriginal As Bitmap
 Dim bitmapRotated As Bitmap
 Dim exifdataInstance As ExifData
 Try
  booleanNeedToWriteRotatedBitmap = False
  exifdataInstance.Initialize (gsdirimg, "7.jpg")
  bitmapOriginal.InitializeSample  (gsdirimg, "7.jpg",100%x,100%y)
 
  Select Case exifdataInstance.getAttribute (exifdataInstance.TAG_ORIENTATION)
   Case exifdataInstance.ORIENTATION_ROTATE_90
    Log("ORIENTATION_ROTATE_90")
    bitmapRotated = bitmapOriginal.rotate (90)
   Case exifdataInstance.ORIENTATION_ROTATE_180
    Log("ORIENTATION_ROTATE_180")
    bitmapRotated = bitmapOriginal.rotate (180)
   Case exifdataInstance.ORIENTATION_ROTATE_270
    Log("ORIENTATION_ROTATE_270")
    bitmapRotated = bitmapOriginal.rotate (270)
   Case Else
    Return bitmapOriginal
  End Select
  booleanNeedToWriteRotatedBitmap = True
  Return bitmapRotated
 Catch
  booleanError = True
  Return Null
 End Try
End Sub