Private Sub Form_Load()
    Timer1.Interval = 1000
End Sub

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

    Source: geocities.com/matkins70