vb计时器为何有如此大的误差

我用vb写了一个关机器（秒为单位），在form1中画了两个text框，一个命令按钮，一个表timer2，然后写了如下代码 Dim a As Single '声明变量a Private Sub Command1_Click() '按钮单击事件 a = Val(Text1.Text) ... 我用vb写了一个关机器（秒为单位），在form1中画了两个text框，一个命令按钮，一个表timer2，然后写了如下代码
Dim a As Single '声明变量a

Private Sub Command1_Click() '按钮单击事件
a = Val(Text1.Text) '
Timer2.Interval = 100 '
Timer2.Enabled = True

End Sub

Private Sub Form_Load()

Timer2.Enabled = False

End Sub

Private Sub Timer2_Timer()
a = a - 0.1 '每0.1秒示数减小0.1
Text2.Text = Str(a)
If Val(Text2.Text) <= 0 Then
Timer2.Enabled = False
Shell "shutdown -s -t 300" '计时结束5分钟后关机
Text2.Text = "时间到！"
Timer1.Enabled = False '结束计时
End If

End Sub

运行时我用秒表掐了一分钟，用vb做的计时器竟然比秒表慢将近10秒，并且过程中剩余时间出现了一大串小数
怎么回事？是不是由于计时器0.1秒就更新一次，时间更新间存在误差？
那么这个计时器该怎么改？