vb combo问题 有一个窗口 两个combo控件 还有一个其他控件（后面用x代替），只要能显示文字就可以

用label控件也可以实现.
新建VB工程,加入一个label控件,两个combo控件,粘贴如下代码:
Private Sub form_load ()
label1.caption=""
label1.autosize=true
combo1.additem "1"
combo1.additem "2"
combo1.additem "3"
combo2.additem "3"
combo2.additem "2"
combo2.additem "1"
end sub

Private Sub Combo1_Click()
label1.caption = label1.caption & Combo1.text
End Sub

Private Sub Combo2_Click()
label1.caption = label1.caption & Combo2.text & vbCrLf
End Sub

画一个Text控件 .MultiLine属性=True
Private Sub Combo1_Click()
Text1.Text = Text1.Text & Combo1.List(Combo1.ListIndex)
End Sub

Private Sub Combo2_Click()
Text1.Text = Text1.Text & Combo2.List(Combo2.ListIndex) & vbCrLf
End Sub

可以实现，用一个list就可以，list控件里面不是有属性item.add吗，写上就ok了

好啊