强制ComboBox弹出下拉框

强制ComboBox弹出下拉框 
     用过ComboBox的朋友都知道，当点击ComboBox的向下箭头或点击编辑框时，都 能弹出ComboBox的下拉框。这是为什么呢？原来，这两种操作触发的都是同一个事件。 只要知道事件的发送原理，我们自己也能发送消息，强制其弹出下拉框。
下面的例子就实现了这个功能。
>>步骤1----建立新工程，在窗体上放置ComboBox控件和一个CommandButton控件。
>>步骤2----编写如下代码：

Const CB_SHOWDROPDOWN = &H14F
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
    SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0
End Sub

Private Sub Form_Load()
    Combo1.AddItem "程序编制：小马哥"
    Combo1.AddItem "Mail:Schunte@sina.com"
    Combo1.AddItem "Http://MaJiFeng.Top263.net"
End Sub

>>步骤3----编译运行，点击Command1，看看ComboBox1是不是弹出了下拉框。