Не работает отсчет времени по таймеру - VB

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

Постигаю учебник. Юзаю VB6. При запуске формы таймер отображает текущее время (на момент запуска формы). А отсчет времени не идет. Код до единого символа скопирован из учебника:

                    Листинг программы
                
Private Sub Form_Load()
    Label1.Caption = Second(Time)
    Label2.Caption = Minute(Time)
    Label3.Caption = Hour(Time)
    Timer1.Enabled = True
    End Sub

При чем, сначала код был представлен без строки

                    Листинг программы
                
Timer1.Enabled = True

и автор подчеркивает, что идти этот таймер не будет, а будет лишь отображаться текущее время на момент запуска формы. И было так! Далее автор указывает на необходимость вставить в код эту строку для того, чтобы таймер "пошел". Ан нет! В чем ошибка?

Решение задачи: «Не работает отсчет времени по таймеру»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
    Label1.Caption = Second(Time)
    Label2.Caption = Minute(Time)
    Label3.Caption = Hour(Time)
    Timer1.Interval = 500
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    Label1.Caption = Second(Time)
    Label2.Caption = Minute(Time)
    Label3.Caption = Hour(Time)
End Sub