Dim VerGaleriaFotos As ContentChooser
VerGaleriaFotos.Initialize("EventoGaleriaFotos")
' para llamar a la galeria
VerGaleriaFotos.Show("image/ *jpeg","Seleccione Imagen")
' el evento cuando elijas
Sub EventoGaleriaFotos_Result (Success As Boolean, Dir As String, FileName As String)
If Success = False Then Return ' por si canceló
' con el dir y filename puedes hacer lo que quieras, ponerla en un imageView por ejemplo
' o copiarla
DirImagen = DirFotoGaleria
NombreImagen = "fotodegaleria.jpg"
Try
File.Copy (Dir,FileName, DirImagen,NombreImagen)
Catch
Log("Error al copiar imagen cogida de la galeria")
End Try
End Sub
Saludos