PureBoard

Code: Alles auswählen

EnableExplicit

Define hIcon = LoadIcon_(0, #IDI_ASTERISK)

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  SendMessage_(WindowID(0), #WM_SETICON, 0, hIcon) 
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf