populating a combobox

[flog3941]

This is a kinda funny question!!

Its not ajoke either!

Anybody have a cute and easy way to populate a combobox witha date representing the date for firday for the next 3 years?

[Athley]

I came up with an ugly one here, could probably be done better....

Dim i As Integer
Dim d As Date = Now.Date
For i = 0 To 1100
    If d.AddDays(i).DayOfWeek.ToString = "Friday" Then
        ComboBox1.Items.Add(d.AddDays(i).ToShortDateString)
    End If
Next