强制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是不是弹出了下拉框。
