小さいダイアログを出す方法

>小さいダイアログを表示する方法を教えてください。
dialog命令やMessageBox関数では無理だと思います。
モーダルウィンドウを作成するとかでしょうね。



#include "user32.as"
#define GWL_HWNDPARENT -8
screen 1,200,80,4|2
GetWindowLong hwnd, -16
SetWindowLong hwnd, -16, stat - $20000
gsel 0
gsel 0
mwin=hwnd
gsel 1
SetWindowLong hwnd,GWL_HWNDPARENT,mwin
EnableWindow mwin,0
title "メッセージ"
onexit gosub *exit
font "",12
pos 40,30
LoadIcon 0,32516
DrawIconEx hdc,5,20,stat,32,32,0,0,3
mes "Hello World!"
pos 131,50
button gosub "OK",*close
MessageBeep 64
gsel 1,1
stop
*exit
	if wparam=1{
	gosub *close
	return
	}
	end
*close
	gsel 1,-1
	SetWindowLong hwnd,GWL_HWNDPARENT,0
	EnableWindow mwin,1
	gsel 0,1
	return

HSPTV!掲示板