代码如下:
Dim dlg As New FolderBrowserDialogIf dlg.ShowDialog = DialogResult.Ok Then e.Form.Controls("TextBox1").text = dlg.SelectedPathEnd If