[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته
إضافة لما تفضّل به الأخ و الأستاذ الكريم LoveVb .. جزاه الله خيرًا و زادها بموازين حسناته .. هذه طريقة أخرى حسب ما فهمته لعلّها تفي بالغرض إن شاء الله
فائق إحتراماتي

كود :

Private Sub Form_Load()

Combo1.AddItem (111)
Combo1.AddItem (222)
Combo1.AddItem (333)
Combo1.AddItem (444)
Combo1.AddItem (555)

End Sub
Private Sub Combo1_Click()

Text1.Text = Combo1.Text

End Sub