コンボボックスを自動的にドロップダウンさせる方法
'フォーム上にコンボボックスを貼り付けて実行する
Option Explicit
Private Declare Function SendMessage Lib
"user32" _
Alias "SendMessageA" (ByVal hwnd
As Long, ByVal wMsg As Long, ByVal wParam
As Long, lParam As Long) As Long
Private Const CB_SHOWDROPDOWN = &H14F
Private Sub Combo1_GotFocus()
Dim lngRes As Long
lngRes = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN,
1, 0)
End Sub