Option Explicit

Dim Obj
Set Obj = WScript.CreateObject("SeraphyScriptTools.Instance")

with Obj.MainFrame.Open("SIMPLE-WINDOW").SetWindowStyle(0,0,0)
	with .canvas.layer(0)
		.SetMappingMode 1
		.text 100,100,"�I����ESC�L�["
	end with
	.backcolor = "&HFFFF00"
	.open
	.topmost = true
	.zoomed = true
	while(not .quit)
		.waitevent
	wend
end with