Public Function GetWeeksDates(ByVal firstDayOfWeek As DayOfWeek, _
ByVal iWeeksAgo As Integer) As ArrayList
Dim al As New ArrayList()
Dim day As DateTime = DateTime.Now
Dim startDay As Integer = Int(day.DayOfWeek) - Int(firstDayOfWeek)
If startDay <= 0 Then startDay += 7
startDay = startDay + (7 * iWeeksAgo)
day = day.AddDays(-startDay)
Dim i As Integer
For i = 0 To 6
al.Add(day.Date)
day = day.AddDays(1)
Next
Return al
End Function