The Timer Control

Option Explicit
Dim d1 as Date
Private Sub Form_Load()
'The Timer
Timert.interval=1000
Timert.Enabled=True

'Performing an activity every 1 second
End Sub

Private Sub Timer_Timer()
'Displays the Second interval in the Date
text1.text=Now + 1
End Sub