System Windows Forms VB.Net by API

Imports System
Imports System.Data
Imports System.Windows.Forms
Imports System.Drawing
Public Class MainClass
    
    Shared Sub Main()
        Dim dlgFolder As System.Windows.Forms.FolderBrowserDialog
        dlgFolder = New System.Windows.Forms.FolderBrowserDialog
        dlgFolder.Description = "Select the folder that contains the XML files."
        If dlgFolder.ShowDialog() = DialogResult.OK Then
            Console.WriteLine( dlgFolder.SelectedPath)
        End If
    End Sub
End Class