Option Explicit Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Me.Caption = Now End Sub