EnableExplicit

Define EventID

CreateImage(1,35,35,32)
StartDrawing(ImageOutput(1))
  Box(1,1,33,33,RGB(0,0,255))
StopDrawing()

If OpenWindow(0,0,0,400,60,"Window",#PB_Window_BorderLess|#PB_Window_ScreenCentered)
  ImageGadget(1,10,10,0,0,ImageID(1),0)
  TextGadget(2,60,20,200,20,"Installation wird vorbereitet...",0)
  ButtonGadget(3,290,30,100,20,"Abbrechen",0)
  
  SetWindowLongPtr_(WindowID(0), #GWL_STYLE, GetWindowLongPtr_(WindowID(0), #GWL_STYLE) | #WS_DLGFRAME)
  SetWindowPos_(WindowID(0), 0,0,0,0,0,#SWP_NOSIZE|#SWP_NOMOVE|#SWP_NOZORDER|#SWP_FRAMECHANGED)
  
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_Gadget
  Select EventGadget()
    Case 3
      End
  EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf