Private Sub Command2_Click()
msgacbo Me.Combo1
End Sub
Private Sub Form_Load()
For i = 1 To 10
Combo1.AddItem i
ComboBox1.AddItem i
Next
End Sub
Sub msgacbo(ByVal ctl As ComboBox) 'acbo
MsgBox ctl.AutoTab ' 必定出错:VB 之COMBOBOX无此功能
End Sub
Sub msgbcbo(ByVal ctl As msforms.ComboBox) 'bcbo
MsgBox ctl.AutoTab ' true or false
End Sub
Public Sub aa(cbo As ComboBox)
MsgBox cbo.name
End Sub
Private Sub Combo1_Click()
aa Combo1
End Sub
Private Sub Combo2_Click()
aa Combo2
End Sub
Private Sub Form_Load()
Combo1.AddItem "ddd"
Combo2.AddItem "ccc"
End Sub