EnableExplicit Procedure MonitorEnumProc(hMonitor, hdcMonitor, lprcMonitor, dwData) Debug hMonitor ProcedureReturn #True EndProcedure If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) Debug "==================================================" Debug "Handle-Liste aller Monitore:" Debug "==================================================" EnumDisplayMonitors_(#Null, #Null, @MonitorEnumProc(), #Null) Debug "==================================================" Repeat Select WaitWindowEvent(100) Case #PB_Event_CloseWindow End EndSelect ForEver EndIf