Code: Select all
If OpenWindow(0, 0, 0, 250, 200, "CalendarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CalendarGadget(0, 10, 10, 230, 180)
SetGadgetItemState(0, Date(), #PB_Calendar_Bold)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf