Android Tutorial Getting picture from gallery

Sub Process_Globals
    Dim chooser As ContentChooser
End Sub

Sub Globals
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        chooser.Initialize("chooser")
    End If
    chooser.Show("image/*", "Choose image")
End Sub
Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)
    If Success Then
        Dim bmp As Bitmap
        bmp.Initialize(Dir, FileName)
        Activity.SetBackgroundImage(bmp)
    Else
        ToastMessageShow("No image selected", True)
    End If
End Sub

Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
    If Success Then
   If File.Exists(Dir,FileName) Then
      Msgbox("File exists","")
   End If
    Else
        ToastMessageShow("No image selected", True)
    End If
End Sub

Dim bmp As Bitmap
bmp.Initialize(i_strDir, i_strFileName)
Dim objOut As OutputStream
objout = File.OpenOutput(File.DirRootExternal,"test.png",False)
bmp.WriteToStream(objout,100,"PNG")
objout.Close

Sub IMGdisplay_Result (Success As Boolean, Dir As String, FileName As String)

If Success = True Then
   Dim out As OutputStream
   Dim in As InputStream
   Dim l As List
      
   l.Initialize
      
   l = File.ListFiles(data.img_path & "/" & data.img_folder)
   in = File.OpenInput(Dir,FileName)
   out = File.OpenOutput(data.img_path & "/" & data.img_folder,"I" & (l.Size + 1),False)
      
   File.Copy2(in,out)
   out.Close
End If

End Sub