１３５．メニューの項目を削除する

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

　＜　説明　＞
ＡＰＩ関数のRemoveMenuを使用します
RemoveMenu ＝＞メニューの項目を削除
　　＜引数＞
　　　　 hMenu：メニューのハンドル
　　　　 nPosition：wFlagsで指定した値
　　　 　wFlags：定数（MF＿××参照）
　　＠戻り値＠
　　　　正常終了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

Public Declare Function RemoveMenu Lib "USER32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Const MF_BYPOSITION = &H400'メニューの項目番号（0〜）
Public Const MF_BYCOMMAND = &H0 'メニューのID

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

Dim hMen As Long
Dim SubMen As Long
Dim Ret As Long

　　hMen = GetMenu(Form1.hWnd)
　　SubMen = GetSubMenu(hMen, 0)
　　Ret = RemoveMenu(Submen,0, MF_BYPOSITION)

End Sub