Me.TextBox2.Text = System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim fbd As New FolderBrowserDialog
If fbd.ShowDialog = DialogResult.OK Then
Me.TextBox1.Text = fbd.SelectedPath
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim fbd As New FolderBrowserDialog
If fbd.ShowDialog = DialogResult.OK Then
Me.TextBox2.Text = fbd.SelectedPath
End If
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
If e.Button = MouseButtons.Left Then
MsgBox("wgscd @2005 Copyright")