Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim BrowPath As New Forms.FolderBrowserDialog()
        BrowPath = New System.Windows.Forms.FolderBrowserDialog()
 
        BrowPath.ShowNewFolderButton = False
        BrowPath.RootFolder = Environment.SpecialFolder.Desktop
        BrowPath.ShowDialog()
 
        If BrowPath.ShowDialog() = DialogResult.OK Then
            Label3.Text = BrowPath.SelectedPath
        End If
 
        BrowPath.Reset()
        BrowPath.Dispose()
        BrowPath = Nothing
 
    End Sub