１３３．トップレベル（サブ）メニューのハンドルを取得する

＜　使用用途　＞
メニューを操作する時に用いる

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ダウンロード・・・「メニューのチェックマークをBMPに変更する」サンプルで使用しています。

　＜　説明　＞
ＡＰＩ関数のGetSubMenu使用します
GetSubMenu ＝＞トップレベルメニューのハンドルを取得
　　＜引数＞
　　　　 hMenu:メニューのハンドル
　　　　 nPos：メニュー項目の位置(0〜）　　　　　
　　＠戻り値＠
　　　　　サブメニューのハンドル

<　ＳＡＭＰＬＥ　＞
'ここではForm1のサブメニューハンドル（0番目の）を取得する処理です。
'標準モジュール
Public Declare Function GetMenu Lib "USER32" (ByVal hWnd As Long) As Long

Public Declare Function GetSubMenu Lib "USER32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()

　　Dim hMen As Long
　　Dim Ret As Long

　　　hMen=GetMenu(Form1.hWnd)
　　
　　 Ret=GetSubMenu(hMen,0)

End Sub