รบกวนผู้รู้ช่วยดูโค้ดโปรแกรมของ vb6 และช่วยแนะนำ หรือแก้โค้ดนับเวลาถอยหลังผมให้ทีครับ

Dim CountOneMin As Long
Dim num As Long

Private Sub Timer1_Timer()
CountOneMin = CountOneMin - 1000
Label1.Caption = Val(num) - 1 & " : " & Mid(CountOneMin, 1, 2)
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
CountOneMin = 60000
num = "10"
End Sub