;Autor: ts-soft

EnableExplicit

Prototype mirroricon(hInstance, *pIcon)

Define EventID
Define hIcon, hDLL
Define.mirroricon IconMirror

hIcon = ExtractIcon_(0, #PB_Compiler_Home + "PureBasic.exe", 1)
hDLL = OpenLibrary(#PB_Any, "comctl32.dll")
If hDLL
  IconMirror = GetFunctionEntry(hDLL, 414)
  If IconMirror
    IconMirror(0, @hIcon)
  EndIf
EndIf

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ImageGadget(1,10,10,0,0,hIcon,0)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

DestroyIcon_(hIcon)