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

Формулировка задачи:

Здравствуйте можете помочь, нужно переписать код написанный на VB 6.0

                    Листинг программы
                
 
                            
                        
Dim classstart(5), classend(5) As String
Dim i, difference As Integer
Private Sub Form_Load()
classstart(1) = "8:30:00": classend(1) = "10:05:00"
classstart(2) = "10:15:00": classend(2) = "11:50:00"
classstart(3) = "12:10:00": classend(3) = "13:45:00"
classstart(4) = "13:55:00": classend(4) = "15:30:00"
classend(0) = "00:00:00": classstart(5) = "15:40:00"
Form1.Caption = Form1.Caption + Str(Date)
End Sub
 
Private Sub Timer1_Timer()
Label1.Caption = Time
If Time > TimeValue(classend(4)) Then Label2.Caption = " Занятия окончены. ": Label3.Caption = "До встречи!": Form1.Caption = "You may sleep  " + Str(Date)
For i = 1 To 4
If Time > TimeValue(classstart(i)) And Time < TimeValue(classend(i)) Then
difference = (Hour(classend(i)) * 60 + Minute(classend(i))) - (Hour(Time) * 60 + Minute(Time))
Label2.Caption = "Сейчас идет " + Str(i) + " пара"
Label3.Caption = "До конца пары еще" + Str(difference) + " мин."
End If
Next
For i = 0 To 4
If Time > TimeValue(classend(i)) And Time < TimeValue(classstart(i + 1)) Then
difference = (Hour(classstart(i + 1)) * 60 + Minute(classstart(i + 1))) - (Hour(Time) * 60 + Minute(Time))
Label2.Caption = "Перерыв": Label3.Caption = "До начала" + Str(i + 1) + " пары уже" + Str(difference) + " мин."
End If
Next
End Sub

Решение задачи: «Переписать код с VB 6. Расписание пар»

textual
                            Листинг программы 
                        
 
                            
                        
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