Sub Globals
Private PathSelector As FileDialog
end sub
'label percorso
Private Sub fldMediaPlayerSongsPath_Click
Dim SF As Object
PathSelector.FilePath = File.DirRootExternal
PathSelector.TextColor = Colors.Black
SF = PathSelector.ShowAsync("Selezionare il percorso", "Seleziona", "Annulla", "", Null, False)
Wait For (SF) Dialog_Result(Result As Int)
If Result = DialogResponse.POSITIVE Then
........
End If
end sub