در مثال زیر بعد از انتخاب گزینه ای جدید از Combo متن داخل Text مساوی مقدار ستون دوم Combo که در اینجا با Index شماره 1 مشخص شده است خواهد شد .

Private Sub Combo_AfterUpdate()

Text = Combo.Column(1)

End Sub

موفق باشید .