Log("EventoGaleriaFotos_Result Success: " & Success)
If Success = False Then Return ' no se seleccionó imagen
Log("Dir " & Dir) ' Directorio de la imagen
Log("FileName " & FileName) ' Nombre del fichero
' ya puedes emplearlo en cualquier sitio
ImagenSeleccionada = FileName
DirSeleccionado = Dir
IVfoto.Bitmap = LoadBitmap(Dir,FileName) ' con esto mostramos la foto en el listview
End Sub