Inserisci un timer e una label nel form e utilizza questo codice:

codice:
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
Se ho capito cosa ti serve, questo dovrebbe andare...