Dim selectedimage As ContentChooser
selectedimage.Initialize("imgChooser")
selectedimage.show("image/*", "Choose image")
Sub imgChooser_Result(Success As Boolean, Dir As String, FileName As String)
If Success Then
pec1.Bitmap = LoadBitmap(Dir, FileName)
pec1.Gravity = Gravity.FILL
Else
ToastMessageShow("Nessuna Immagine Selezionata", True)
End If
End Sub