[عبدالله الصافي]

هل هذا طلبك

كود :

Private Sub Combo1_Click()
Text1 = Combo1
End Sub

Private Sub Form_Load()
Dim xx(4) As String
xx(0) = "أحمد"
xx(1) = "خالد"
xx(2) = "جمعة"
xx(3) = "صالح"
For i = 0 To 3
Combo1.AddItem xx(i)
Next
End Sub