Таймер имеет погрешность - VB

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

Есть 3 таймера с прогресс баром для каждого. После завершения работы 1-го запускается 2, после завершения 2-гозапускается третий. Первый работает 8 сек, затем 32 сек, и 16 сек. Проблема заключается в том каждый из таймеров имеет погрешность и соответственно показывает неправильно. Т.е. секунда в программе не соответствует реальной секунде, Итоговая погрешность составляет +5 сек. Помогите разобраться в чем дело? Я в программировании понимаю слабо, а таймер очень нужен))) Вот его код и игзешник прицепляю.

Private Sub Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
 
Private Sub Command2_Click()
End
End Sub
 
Private Sub Command3_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub
 
Private Sub Command4_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Label1.Caption = 0
Label2.Caption = 0
Label3.Caption = 0
ProgressBar1.Value = 0
ProgressBar2.Value = 0
ProgressBar3.Value = 0
End Sub
 
Private Sub Label1_change()
If Label1.Caption = 80 Then
Timer1.Interval = 0
Timer2.Interval = 100
Timer2.Enabled = True
End If
End Sub
 
Private Sub Label2_change()
If Label2.Caption = 320 Then
Timer2.Interval = 0
Timer3.Interval = 100
Timer3.Enabled = True
End If
End Sub
 
Private Sub Label3_change()
If Label3.Caption = 160 Then
Timer3.Interval = 0
MsgBox ("Done")
Command2.Visible = True
End If
End Sub
 
Private Sub Timer1_Timer()
If ProgressBar1.Value = 80 Then
ProgressBar1.Value = 0
Else
ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)
Label1.Caption = ProgressBar1.Value
End If
End Sub
 
Private Sub Timer2_Timer()
If ProgressBar2.Value = 320 Then
ProgressBar2.Value = 0
Else
ProgressBar2.Value = Val(ProgressBar2.Value) + Val(1)
Label2.Caption = ProgressBar2.Value
End If
End Sub
 
Private Sub Timer3_Timer()
If ProgressBar3.Value = 160 Then
ProgressBar3.Value = 0
Else
ProgressBar3.Value = Val(ProgressBar3.Value) + Val(1)
Label3.Caption = ProgressBar3.Value
End If
End Sub

Решение задачи: «Таймер имеет погрешность»

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

                            Private Sub Command1_Click()
    Timer1.Interval = InputBox("Введите интервал первого таймера (в миллисекундах)", "Ввод данных", 1000)
    Timer2.Interval = Timer1.Interval * 4
    Timer3.Interval = Timer1.Interval * 2
End Sub
                        