EnableExplicit Define SYSTEMTIME.SYSTEMTIME If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) CalendarGadget(1, 10, 10, 250, 250) ButtonGadget(2, 10, 270, 250, 20, "Datum ändern", 0) Repeat Select WaitWindowEvent() Case #PB_Event_Gadget Select EventGadget() Case 2 SYSTEMTIME\wDay = 1 SYSTEMTIME\wMonth = 10 SYSTEMTIME\wYear = 2010 SendMessage_(GadgetID(1), #MCM_SETCURSEL, 0, SYSTEMTIME) EndSelect Case #PB_Event_CloseWindow End EndSelect ForEver EndIf