メニューを破棄
Declare Function DestroyMenu Lib "user32.dll" _ (ByVal hMenu As Long) As Long
正常終了のとき 0以外 エラーのとき 0