EnableExplicit

Define FolderIcon
Define Draw

ExtractIconEx_("shell32.dll",3,0,@FolderIcon, 1)

CreateImage(1,32,32)
Draw = StartDrawing(ImageOutput(1))
  Box(0,0,32,32,RGB(255,255,255))
  DrawIcon_(Draw,0,0,FolderIcon)
StopDrawing()

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ImageGadget(1,10,10,0,0,ImageID(1),0)
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf