参考答案

Private Sub Command1_Click()
    Combo1.AddItem Text1.Text '或 Combo1.AddItem Text1
End Sub
Private Sub Command2_Click()
    Print Combo1.ListCount
End Sub