command写COMBOBO 的事件,要求对象

Question

command写COMBOBO 的事件 
Private Sub 计算_Click()
        Select Case Combo3.Text
              Case "Kcal/h"
                      MsgBox "a"
                                Select Case Combo3.Text
              Case "m2/h"
                        Text4 = m2 / h
                                                        Select Case Combo3.Text
              Case "Nm3/h"
                        Text4 = 2
        End Select
         End Select
         End Select
End Sub 
 
他说要求对象,怎搞的 

Answer 1

combo下拉的时候什么事件都不触发 一起在COMMAND 上触发 假如选COMBO上的1就用第一个事件,选COMBO2就用第2个事件 
请牛人给个例子

Answer 2

combo下拉的时候什么事件都不触发 一起在COMMAND 上触发 假如选COMBO上的1就用第一个事件,选COMBO2就用第2个事件 
请牛人给个例子

Answer 3

Private Sub Command1_Click()
Select Case Me.Combo1.Text
    Case "aa"
        MsgBox "aa"
    Case "bb"
        MsgBox "bb"
    Case "cc"
        MsgBox "cc"
End Select
End SubPrivate Sub Form_Load()
Me.Combo1.AddItem "aa"
Me.Combo1.AddItem "bb"
Me.Combo1.AddItem "cc"End Sub
是这样吗?