Как установить стартовую дату на неделю вручную с помощью vb

Question

Я пытаюсь установить день начала недели на основе значения сервера.Скажем, на моем сервере день начала недели равен 1, список начинается с понедельника = 1, вторника = 2, среды = 3 ... воскресенья = 7, как будто мне нужны значения списка.Как получить этот список, как это?Любые предложения приветствуются.Здесь я попробовал.

 For Each item In datesItem

            Dim i = CType(item.DayOfWeek, DaysOfWeek.DaysOfWeek)
            Dim exists = [Enum].IsDefined(GetType(DaysOfWeek.DaysOfWeek), i)
            If Not exists Then
                i = CType(CInt(item.DayOfWeek), DaysOfWeek.DaysOfWeek)
                'Here I'm get that Starting value which I intend to add to tuple.
            Else
                datesTuple.Add(New Tuple(Of Integer, DaysOfWeek.DaysOfWeek, Date)(CInt(i), i, item))
            End If
        Next

Фактическая потребность Результат:

День запуска сервера: 1 Выход: понедельник - 1 вторник - 2 среда - 3 четверг - 4.,Воскресенье - 7