private sub combo1_click()text1=combo1.list(combo1.listindex)end sub
Private Sub Combo1_Click() Text1.Text = Combo1.List(Combo1.ListIndex)End Sub
