Private Sub Combo1_Click()Dim ReTxt As StringReTxt = Combo1.ListIndexText1.Text = Combo1.List(ReTxt)End Sub该代码作用是将组合框选取的内容显示在文本框中
