コンボボックスの各種操作2

'SendMessage＝＞メッセージをウインドウに送る

'<引数>
'hWnd：ウインドウのハンドル
'wMsg：定数（CB＿××参照）
'wParam：パラメータ
'lParam：0

'<戻り値>
'値により異なる

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


Const CB_SHOWDROPDOWN = &H14F      'コンボボックスを開閉する(開く時は1、閉じる時は0）

Private Sub Command1_Click()

SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0

End Sub

Private Sub Form_Load()


Combo1.AddItem "NO1"
Combo1.AddItem "NO2"
Combo1.AddItem "NO3"
Combo1.AddItem "NO4"
Combo1.AddItem "NO5"


End Sub