EnableExplicit Procedure.i ListScreenResolution() Protected device.DISPLAY_DEVICE Protected settings.DEVMODE Protected a device\cb = SizeOf(DISPLAY_DEVICE) settings\dmSize = SizeOf(DEVMODE) EnumDisplayDevices_(#Null,#Null,device,#Null) While EnumDisplaySettings_(@device\DeviceName,a,settings ) a+1 AddGadgetItem(1,-1,Str(settings\dmPelsWidth)+"x"+Str(settings\dmPelsHeight)+"x"+Str(settings\dmDisplayFrequency),0,0) Wend EndProcedure If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) ListViewGadget(1,10,10,480,230,0) ListScreenResolution() Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf