populating a combobox

[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