Fill spinner with dates

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