OS: Windows 7 Pro, PB v5.61
Code: Select all
If OpenWindow(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
If CreateMenu(0, WindowID(0))
MenuTitle("&File")
MenuItem( 1, "&Load...")
MenuItem( 2, "&Save")
MenuItem( 3, "Save &As...")
MenuBar()
MenuItem( 7, "&Quit")
MenuTitle("&Option")
EndIf
StickyWindow(0, 1)
RunProgram("osk")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Menu
Select EventMenu()
Case 7
Quit = 1
EndSelect
EndSelect
Until Quit = 1
EndIf