Переписать код с VB 6. Расписание пар - Visual Basic .NET

Public Class Form1
    Dim LList As New List(Of String) 'Список начала каждой пары
    Dim LLength As Integer = 95 'Продолжительность пары в минутах
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LList.Add("08:30") '1 пара
        LList.Add("10:15") '2 пара
        LList.Add("12:10") '3 пара
        LList.Add("13:55") '4 пара
        LList.Add("15:40") '5 пара
 
        Timer1.Interval = 1000 'Интервал таймера = 1 секунде
        Timer1.Start() 'Запускаем таймер
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeOfDay 'Отображаем текущее время
 
        Select Case TimeOfDay 'Проверка на начало и окончание учебного дня
            Case CDate("00:00:00") To CDate(LList(0))
                Label2.Text = "Занятия еще не начались." : Label3.Text = "Наберитесь терпения!" : Exit Sub
            Case CDate(LList(LList.Count - 1)).AddMinutes(LLength) To CDate("23:59:59")
                Label2.Text = "Занятия окончены. " : Label3.Text = "До встречи!" : Exit Sub
        End Select
 
        For i = 0 To LList.Count - 1
            Dim LStart As DateTime = CDate(LList(i)) : Dim LEnd As DateTime = LStart.AddMinutes(LLength)
            Dim LNext As DateTime : If i = LList.Count - 1 Then LNext = CDate(LList(0)) Else LNext = CDate(LList(i + 1))
            Select Case TimeOfDay
                Case LStart To LEnd 'Вывод текущей пары и времени до ее окончания
                    Label2.Text = String.Format("Сейчас идет {0}-я пара.", i + 1)
                    Label3.Text = String.Format("До конца осталось {0}", LEnd.Subtract(TimeOfDay))
                Case LEnd To LNext 'Вывод момента перерыва и времени до начала следующей пары
                    Label2.Text = "Сейчас перерыв..."
                    Label3.Text = String.Format("До начала осталось {0}", LNext.Subtract(TimeOfDay))
            End Select
        Next
    End Sub
End Class