１３１．指定の変数がメニューのハンドルか判別する

＜　使用用途　＞
指定の変数がメニューのハンドルか判別する

　＜　説明　＞
ＡＰＩ関数のIsMenu使用します
IsMenu ＝＞指定の変数がメニューのハンドルか判別
　　＜引数＞
　　　　　hMenu：メニューのハンドル　　　　　
　　＠戻り値＠
　　　　　メニューのハンドルの時1

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Function IsMenu Lib "USER32" Alias "IsMenu" (ByVal hMenu　As Long) As Long

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

　 Dim Ret As Long
　
　　’hMenuにメニューハンドルと思われる変数をいれる
　　Ret =IsMenu(hMenu)

　 If Ret=1 Then MsgBox "メニューのハンドルです"

End Sub