Code: Select all
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 10, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window")
If CreateGadgetList(WindowID(#Window_0))
ButtonGadget(#Button_0, 120, 110, 60, 20, "OK")
;HideWindow(#Window_0,0)
ProcedureReturn WindowID()
EndIf
EndIf
EndProcedureOr maybe there is a site so that we can read about it.
Alan

