Private Sub Button1_Click
Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("image/*", "Choose image")
Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Dim bmp As B4XBitmap = xui.LoadBitmap(Dir, FileName)
Log(bmp)
End If
End Sub