'obj and obj2 are Objects (from the door library)
Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
Form1.Show
flb.New1("form1",B4PObject(1))
obj.New1(false)
obj2.New1(false)
obj2.FromControl("form1")
obj2.Value = obj2.GetProperty("Menu")
flb.FullScreen(true)
End Sub
Sub ReturnTitle
obj.FromControl("form1")
obj.SetProperty("MaximizeBox",true)
obj.SetProperty("ControlBox",true)
obj.SetProperty("FormBorderStyle","Sizable")
obj.SetProperty("WindowState","Normal")
End Sub
Sub ReturnMenu
obj.FromControl("form1")
obj.SetProperty2("Menu",obj2.Value)
End Sub