Report code for function for get weeks

Public Function GetColumnHeading(ByVal x As Integer)
Dim WeeksArr As New System.Collections.ArrayList()
Dim i As Long
Dim CurrentWeek As Long

CurrentWeek = DatePart(DateInterval.WeekOfYear, System.DateTime.Now)

For i = 1 To 52
WeeksArr.Add(1 + (i + CurrentWeek - 1) Mod 52)
Next
Return WeeksArr(x)
End Function