'place a timer on a form and set its Interval property to 1000

'double click the timer and enter this

Private Sub Timer1_Timer()
Form1.Caption = Time
End Sub