mondaysList = Enumerable.Range(0, (New DateTime(year, 12, 31) - New DateTime(year, 1, 1)).Days + 1).Select(Function(i) New DateTime(year, 1, 1).AddDays(i)).Where(Function(d) d.DayOfWeek = DayOfWeek.Monday).ToList()
Hope it helps!!
mondaysList = Enumerable.Range(0, (New DateTime(year, 12, 31) - New DateTime(year, 1, 1)).Days + 1).Select(Function(i) New DateTime(year, 1, 1).AddDays(i)).Where(Function(d) d.DayOfWeek = DayOfWeek.Monday).ToList()
Hope it helps!!