[حريف برمجة]

نفس مشروعك امسح كل الاكواد اللي فيه والصق الكود اللي هنا :

الكود :

كود :

Public Class Form1

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       TextBox1.Text = ComboBox1.Text
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim folders() As String = IO.Directory.GetDirectories("C:\")
       For Each folder As String In folders
           ComboBox1.Items.Add(folder)
       Next
   End Sub
End Class