EnableExplicit Procedure WindowCallback(hWnd, uMsg, wParam, lParam) Protected *NMDATETIMECHANGE.NMDATETIMECHANGE Select uMsg Case #WM_NOTIFY *NMDATETIMECHANGE = lParam Select *NMDATETIMECHANGE\nmhdr\hwndfrom Case GadgetID(0) If *NMDATETIMECHANGE\nmhdr\code = #DTN_DROPDOWN SetWindowTheme_(FindWindowEx_(FindWindow_("DropDown", 0), #Null, "SysMonthCal32", #Null), @"", @"") EndIf EndSelect EndSelect ProcedureReturn #PB_ProcessPureBasicEvents EndProcedure If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) SetWindowColor(0, $0) DateGadget(0, 15, 50, 200, 17, "%dd/%mm/%yyyy", Date()) SetGadgetColor(0, #PB_Gadget_BackColor, $0) SetGadgetColor(0, #PB_Gadget_FrontColor, $ffffff) SetWindowCallback(@WindowCallback()) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf