HSPTV!掲示板

モジュールのmod_menuで作成したメニューバーがclsしてもclrobjしても消えません。
モジュールには記載されていない「メニューバーを消す」命令は存在するのでしょうか？

#include "mod_menu.as"
#uselib "user32"
#func DestroyMenu "DestroyMenu" int

#define CMD_OPEN 1
#define CMD_REMOVE 2
	
	oncmd gosub *OnCommand, WM_COMMAND        ; メッセージ割り込み
	; サブメニュー作成
	newmenu hfilemenu, 1
	addmenu hfilemenu, "開く(&O)", CMD_OPEN
	addmenu hfilemenu, "消す(&Q)", CMD_REMOVE
	; トップメニュー作成
	newmenu hmenu, 0
	addmenu hmenu, "ファイル(&F)", hfilemenu, 0x10
	applymenu hmenu
stop

; メッセージの処理
*OnCommand
	cmd = wparam & 0xFFFF
	if (CMD_OPEN == cmd) {
		dialog "メニューを選択しました。"
	}
	if (CMD_REMOVE == cmd) {
		; メニューを削除
		;（一時的に表示するだけであれば、消さなくてよい
		;　その場合再表示する場合は、applymenu hmenuをすれば表示される）
		DestroyMenu hmenu
		; ウィンドウからメニューを除去
		applymenu 0
	}
return

ありがとうございます。

解決、したんですか？