Вывод времени в Label по таймеру - VB

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

Помогите составить программу для вывода времени в лейбл через таймер, допустим что время начинаем отсчитывать с 17:00, а минута будет проходить за тот же промежуток, что и секунда вне программы, и как сделать подсчет прошедших дней в таком времени, заранее спасибо

Решение задачи: «Вывод времени в Label по таймеру»

textual
                            Листинг программы 
                        

                            Dim T, T1, T2
Private Sub Комманда1_Click()
Часы1.Enabled = Not Часы1.Enabled
T = Format(Метка1.Caption, "hh:nn:ss")
T1 = Time
End Sub
 
Private Sub Часы1_Timer()
T2 = DateDiff("s", T1, Time)
Метка2.Caption = DateAdd("s", T2, T)
Метка3.Caption = DateAdd("n", T2, T)
End Sub
                        