dim obj
set obj = new MainFrame

class mainframe
  public instance
  public edt,cmd

  public sub class_initialize
    set instance = createobject("seraphyscripttools.instance")
    with instance.mainframe
      .classobject = me
      with .form
        .label "ラベル"
        set edt = .edit("エデイットボックス")
        set cmd = .button("表示").SetClassEvent("CMD_SHOW")
      end with
      .open "テスト"
      .domodal
    end with
  end sub

  public sub CMD_SHOW
   instance.dialog.messagebox edt.text
  end sub

  public sub OnOK
   if(instance.dialog.messagebox("閉じてもよいですか?",1) = -1) then
      instance.mainframe.quit = false
   end if
  end sub

  public sub OnCancel
   instance.dialog.messagebox "CANCEL"
  end sub

end class