EnableExplicit Procedure WinCallback(hWnd, uMsg, wParam, lParam) Protected *NMHDR.NMHDR Protected SYSTEMTIME.SYSTEMTIME Select uMsg Case #WM_NOTIFY *NMHDR = lParam Select *NMHDR\hwndFrom Case GadgetID(1) Select *NMHDR\code Case #DTN_DATETIMECHANGE SendMessage_(GadgetID(1), #MCM_GETCURSEL, 0, SYSTEMTIME) Debug Str(SYSTEMTIME\wDay) + "." + Str(SYSTEMTIME\wMonth) + "." + Str(SYSTEMTIME\wYear) EndSelect EndSelect EndSelect ProcedureReturn #PB_ProcessPureBasicEvents EndProcedure If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) DateGadget(1, 10, 10, 100, 20) SetWindowCallback(@WinCallback()) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf