Hola...
Te paso un ejemplo que funcionara... Solo pone en un form un control Label y un Timer.
Cita: Dim NumTiempo(1 To 4) As Byte
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Dim x As Integer
'--- Realiza el procedimiento
For x = 4 To 1 Step -1
cambio = False
If NumTiempo(x) >= 59 Then
NumTiempo(x) = 0
cambio = True
Else
NumTiempo(x) = NumTiempo(x) + 1
If cambio = False Then
Exit For
End If
End If
Next x
'---- le da formato a los numeros
label1.Caption = ""
For x = 1 To 4
If NumTiempo(x) <= 9 Then
label1.Caption = label1.Caption & ":0" & NumTiempo(x)
Else
label1.Caption = label1.Caption & ":" & NumTiempo(x)
End If
Next x
label1.Caption = Mid(label1.Caption, 2) 'solo saca el primer :
End Sub
En si lo que hace esto es separa tu reloj en 4 partecitas, hace que una empiece a contar hasta 59, cuando llega a hacerlo le dice a otra montoncito sumate uno que yo vuelvo de cero a contar hasta 59 y asi sucesivamente...
Al final del codigo simplemente visualza a todos los montoncitos separados por : y se termina viendo como lo deseas...
NOTA: Los montoncitos se llaman ARRAY para hablar con propiedad y su traduccion al español es ARREGLOS.
Saludos y espero que sirva