Android Question Loading bitmap error JAVALINE

#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.
    Dim SourceImageRect, TouchImageViewRect As Rect
    Dim Bitmap1 As Bitmap
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 TouchImageView1 As TouchImageView
    Dim SQLVariables2 As SQL
    Dim CurVariables2 As Cursor
    Dim SQueryVariables2 As String
    Private PnlOrd As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    Activity.LoadLayout("LytImagen")
    If SQLVariables2.IsInitialized = False Then
        SQLVariables2.Initialize(File.DirDefaultExternal, "l4pro.sql", False)
    End If
    SQueryVariables2 = "SELECT * FROM Variables"
    CurVariables2 = SQLVariables2.ExecQuery(SQueryVariables2)
    CurVariables2.Position = 0
    Activity.Title = CurVariables2.GetString("TituloActivity")
   
    TouchImageView1.Initialize("TouchImageView1")
    Activity.AddView(TouchImageView1, 0, 0, 100%x, 100%y)

    TouchImageView1.MinScale=0.5            '    default is 0.5
    TouchImageView1.MaxScale=6                '    default is 1.5
    TouchImageView1.TranslatePadding=128dip    '    default is 64dip
   
    TouchImageView1.Gravity=Gravity.FILL
    'TouchImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"fondo.png"))
'   
'   
    Dim Bitmap1 As Bitmap
    Bitmap1.Initialize(File.DirDefaultExternal,CurVariables2.GetString("UltimaImagen")) '
    TouchImageView1.SetBitmap(Bitmap1)
    If FirstTime Then
        SourceImageRect.INITIALIZE(0, 0, Bitmap1.WIDTH, Bitmap1.HEIGHT)
        TouchImageViewRect.INITIALIZE(0, 0, TouchImageView1.WIDTH, TouchImageView1.HEIGHT)
    End If

'    if the scaling process scales the image to less than the current MinScale or more than the current MaxScale then MinScale or MaxScale will be adjusted
    TouchImageView1.ScaleSrcRectToDestRect(SourceImageRect, TouchImageViewRect, "CENTER")    '    make string a static constant in library
    Activity.AddMenuItem("Enviar Servicio","Enviar_Servicio")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
    TouchImageViewRect=TouchImageView1.GetDestRect
    If UserClosed Then
        SQLVariables2.Close
    End If
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
       If KeyCode = KeyCodes.KEYCODE_BACK Then
        Activity.Finish
       End If
End Sub

Sub Enviar_Servicio_Click
    Dim u As Uri 'ContentResolver library
    u.Parse("file://" & File.Combine(File.DirDefaultExternal,CurVariables2.GetString("UltimaImagen")))
    Dim i As Intent
    i.Initialize(i.ACTION_SEND, "")
    i.SetType("*/*")
    i.PutExtra("android.intent.extra.STREAM",u)
    StartActivity(i)
End Sub

Dim u AsUri'ContentResolver library u.Parse("file://" & File.Combine(File.DirDefaultExternal,CurVariables2.GetString("UltimaImagen")))Dim i AsIntent
 i.Initialize(i.ACTION_SEND, "")
 i.SetType("*/*")
 i.PutExtra("android.intent.extra.STREAM",u)StartActivity(i)