我的要求　是　点击下拉框（箭头）时
运行下述代码
Private Sub Combo1_OnDropDown()
   Dim n As Integer

n = Combo1.ListCount

If Not n > 0 Then
    MsgBox "********", vbokonley, "***"
    Exit Sub
End If

End Sub
　

--------------------------
Private Sub Combo1_DropDown()
     Dim n As Integer

     n = Combo1.ListCount

  If Not n > 0 Then
      MsgBox "********", vbOKOnly, "***"
    Exit Sub
  End If
End Sub
-------------------------
我的代码有效.我测试过了,你的函数名写错了,你照我的抄.

ComboBox的OnDropDown事件和Click事件，好像差不多吧！！
我想要的是点击下拉框（箭头）时运行代码．．
不是选择数据时运行代码（Click事件）．．．

是不是OnDropDown事件也要选择数据时才运行代码呢？？

可以了．．．谢谢．．是写错了．．
版主真热心肠，，．DropDown写错OnDropDown