Sub Globals
Dim spnr As Spinner
End Sub
Sub Activity_Create(FirstTime As Boolean)
spnr.Initialize("spnr")
Dim year As Int
year = DateTime.GetYear(DateTime.Now) 'find the current year
Dim i As Long
DateTime.DateFormat = "dd/MM/yyyy"
i = DateTime.Now
Do While DateTime.GetYear(i) = year
spnr.Add(DateTime.Date(i))
i = DateTime.Add(i, 0, 0, 1)
Loop
Activity.AddView(spnr, 10dip, 10dip, 200dip, 70dip)
End Sub