dim mainframe
set mainframe = new MainWindow

class MainWindow
	public Instance
	public sub class_initialize
		set Instance = CreateObject("SeraphyScriptTools.Instance")
		with Instance.Mainframe
			.ClassObject = me
			.Open "sample4"
			.DoModal
		end with
	end sub

	public sub OnClickOut
		Instance.Dialog.MessageBox "CLICK"
	end sub
end class