Option Compare Binary Option Explicit On Option Infer On Option Strict On Imports System Imports System.Windows.Forms Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Using dlg As New FolderBrowserDialog If dlg.ShowDialog(Me) <> DialogResult.OK Then Exit Sub End If Label1.Text = dlg.SelectedPath End Using End Sub End Class