Define.i MyWin, Event, x, y
x = 400
y = 300

If OpenWindow(0, 0, 0, x, y, "I am a window - PureBasic", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  If CreateImage(0, x, y) And StartDrawing(ImageOutput(0))
    DrawingMode(#PB_2DDrawing_Transparent)
    Box(0, 0, x, y, #White)
    For i = 1 To 10
      DrawText(x/3, y/2, "Hello World!", #Black)
      ;DrawText(Random(200), Random(200), "Hello World!", RGB(Random(255), Random(255), Random(255)))
    Next i
    StopDrawing()
    ImageGadget(0, 0, 0, x, y, ImageID(0))
  EndIf

  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_Gadget
        ; Handle any gadget events here
      Case #PB_Event_CloseWindow
        Break
    EndSelect
  ForEver
EndIf