EnableExplicit Define Handle RunProgram("notepad.exe") Delay(500) Handle = FindWindow_("notepad", #Null) If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ImageGadget(1, 10, 10, 0, 0, GetClassLong_(Handle, #GCL_HICON), 0) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf