１１０．メニューを削除、設定する

＜　使用用途　＞
メニューを削除、設定する

　＜　説明　＞
ＡＰＩ関数のSetMenuを使用します
SetMenu ＝＞メニューを削除、設定する
　　＜引数＞
　　　　　hWnd: ウインドウのハンドル
　　　　　 hMenu: 新しいメニューのハンドル
　　　　　　　　　　 既存のメニューを削除する場合は 0
　　＠戻り値＠
　　　　　 正常終了0以外

<　ＳＡＭＰＬＥ　＞
’既存のメニューを削除する処理です。>>>最初にメニューを作成してから実行してください。
'標準モジュール
Public Declare Function SetMenu Lib "USER32" (ByVal hWnd As Long, ByVal hMenu As Long) As Long

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

Dim Ret As Long
　　Ret = SetMenu(hWnd, 0)

End Sub