شمارش در تايمر

[MohammadGh2011]

سلام اساتيد گرامي
من يك تكست باكس و يك ليبل روي فرمم دارم ميخوام هر موقع توي TextBox مثلا عدد 8 رو نوشتم از 8 بشماره بياد به صفر (يعني ...-6- 7-8) دوستان گرامي راهنمايي بفرماييد.
ممنونم

[M.T.P]

Option Explicit
Dim IntNumber As Long

Private Sub Timer1_Timer()
IntNumber = Val(Text1.Text)
If IntNumber > 0 Then
IntNumber = IntNumber - 1
Text1.Text = IntNumber
End If
End Sub