سلام
یک Label و یک Timer به فرم اضافه کنید.
کدهای زیر را در برنامه قرار دهید..

کد:

Dim S, D, Se As Integer

Private Sub Form_Load()
S = 1
D = 59
Se = 59
End Sub

Private Sub Timer1_Timer()
If Se >= 10 Then
   Label1.Caption = S & ":" & D & ":" & Se
   Se = Se - 1
ElseIf Se < 10 Then
   Label1.Caption = S & ":" & D & ":" & "0" & Se
   Se = Se - 1
End If

If Se < 0 Then
  Se = 59
  D = D - 1
End If

If D = 0 And Se = 0 Then
  D = 60
  S = S - 1
End If

If S = 0 And D = 0 Then
  Label1.Caption = "0:00:00"
  Timer1.Enabled = False
End If

End Sub

نمونه کار پیوست شد...