怎样在VB6.0中用TIMER空间作出一个20分钟的倒计时？大哥大姐，求代码

Dim a As Integer
Dim b As Integer
Dim c As Integer
Private Sub Form_Load()
Text1.Text = "20:00"
Timer1.Interval = 1000
a = 1200
End Sub

Private Sub Timer1_Timer()
a = a - 1
b = a \ 60
c = a - (b * 60)
Text1.Text = Trim(Str(b)) + ":" + Trim(Str(c))

End Sub

一楼的没必要设置那么多全局变量的
Dim a As Integer
Private Sub Form_Load()
Text1.Text = "20:00"
Timer1.Interval = 1000
a = 1200
End Sub

Private Sub Timer1_Timer()
Dim b As Integer
Dim c As Integer
a = a - 1
b = a \ 60
c = a mod 60
Text1.Text = Trim(Str(b)) + ":" + Trim(Str(c))

End Sub

如果要让计时器永远在最前面，可以参考这段代码
Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal