;Vollständige Liste aller Virtual-Key Codes: https://msdn.microsoft.com/de-de/library/windows/desktop/dd375731(v=vs.85).aspx EnableExplicit If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) Repeat Select WaitWindowEvent() Case #WM_KEYDOWN Debug EventwParam() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf