onclick事件,双击COMBO,添加程序Text1.text=combo1.selecteitem.value大概是这样
Private Sub Combo1_Click()Text1 = Combo1.TextEnd Sub
Text1.text = Combo1.Text