Dim fc As FileChooser
fc.Initialize
Dim filename As String = fc.ShowOpen(MainForm)
If filename = "" Then
' No file choosen
Else
' User choosed a filename
End If
fc.Title="Select Photo"
fc.InitialDirectory = "C:\Proyectos"
fc.SetExtensionFilter("Image",Array As String("*.jpg","*.png","*.bmp"))