各位，帮我看下这个程序，怎么label的值不会跳啊

Private Sub Timer1_Timer()
timeshow (7200)
End Sub

Public Function timeshow(time As Integer)
Dim h, m, s As Integer
time = time - 1
h = Int(time / 3600)
m = Int((time - 3600 * h) / 60)
s = time - 3600 * h - 60 * m
Label1.Caption = h & ":" & m & ":" & s
End Function

扫描错?.什么意思.

打错字了,是什么错

Dim intTime As Integer

Private Sub Form_Load()
intTime = 7200
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
timeshow (intTime)
intTime = intTime - 1
End Sub

Public Function timeshow(time As Integer)
Dim h, m, s As Integer
h = Int(time / 3600)
m = Int((time - 3600 * h) / 60)
s = time - 3600 * h - 60 * m
Label1.Caption = h & ":" & m & ":" & s
End Function