EnableExplicit Define NONCLIENTMETRICS.NONCLIENTMETRICS NONCLIENTMETRICS\cbSize = SizeOf(NONCLIENTMETRICS) SystemParametersInfo_(#SPI_GETNONCLIENTMETRICS, 0, @NONCLIENTMETRICS, 0) If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) SpinGadget(1, 10, 10, 100, 50, 0, 100, #PB_Spin_Numeric) SetGadgetState(1, 50) LoadFont(1, PeekS(@NONCLIENTMETRICS\lfCaptionFont\lfFaceName[0]), 20) SetGadgetFont(1, FontID(1)) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf