my.settings.myvariable = fbd.selectedpath

My.Settings.Folder = FBD.SelectedPath

Public Class Form2
 
    Dim Listita As New ListBox
 
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Listita.BackColor = Color.White
        Listita.ForeColor = Color.Black
        Listita.Size = New Point(340, 251)
        Listita.Location = New Point(12, 25)
        AddHandler Listita.SelectedIndexChanged, AddressOf Listita_SelectedIndexChanged
        Me.Controls.Add(Listita)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
 
    Private Sub Listita_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
        Dim Item As String = Listita.SelectedItem
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim FBD As New FolderBrowserDialog
        FBD.Description = " Seleccionar una carpeta "
        FBD.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        FBD.ShowNewFolderButton = True
        Dim Resultado As DialogResult = FBD.ShowDialog
        If Resultado = Windows.Forms.DialogResult.OK Then
        Try
                Dim Folder As String = FBD.SelectedPath
                Dim Files As Array = IO.Directory.GetFiles(Folder, "*", IO.SearchOption.TopDirectoryOnly)
                Dim TotalRoms As Int32 = Files.Length
                Listita.Items.Clear()
                For Each File In Files
                    Dim File_Info As New IO.FileInfo(File)
                    Listita.Items.Add(File_Info.Name)
                Next
                Label1.Text = "Roms encontrados (" & TotalRoms & ")"
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
        FBD.Dispose()
    End Sub
 
End Class