VBA - Fun - timer
The following code does not belong to me, comment at below if you know the coder name / link . I will happily edit to put the source . Private Sub Form_Timer() Dim CurTime As Date Dim ValHours As Integer Dim ValMinutes As Integer Dim ValSeconds As Integer CurTime = Time ValHours = Hour(CurTime) ValMinutes = Minute(CurTime) ValSeconds = Second(CurTime) pgrHours.Value = ValHours pgrMinutes.Value = ValMinutes pgrSeconds.Value = ValSeconds lblHours.Caption = CStr(ValHours) lblMinutes.Caption = ValMinutes lblSeconds.Caption = CStr(ValSeconds) End Sub