Android Question Problem in Camera picture

Private Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
   
    If Success Then
   
        Dim ou As OutputStream
        ou = File.OpenOutput(File.DirInternal,"temp.jpg",False)
        File.Copy2(File.OpenInput(Dir,FileName),ou)
        ou.Close
       
        Dim temp As Bitmap
        temp = LoadBitmap(File.DirInternal,"temp.jpg")

        Dim exif As ExifData
        exif.Initialize(File.DirInternal,"temp.jpg")
           
        Select exif.getAttribute(exif.TAG_ORIENTATION)
            Case exif.ORIENTATION_ROTATE_180
                temp = RotateBitmap(temp,180)
           
            Case exif.ORIENTATION_ROTATE_270
                temp = RotateBitmap(temp,270)
           
            Case exif.ORIENTATION_ROTATE_90
                temp = RotateBitmap(temp,90)
               
        End Select
       
        CallSub2(modue,evt,temp)
       
    End If
   
End Sub