Private Sub tmrCheckTime_Timer()
Const MS_PER_SEC As Long = 1000
Const MS_PER_MIN = MS_PER_SEC * 60
Const MS_PER_HR = MS_PER_MIN * 60
Const MS_PER_DAY = MS_PER_HR * 24

Dim ms As Long
Dim secs As Long
Dim mins As Long
Dim hrs As Long
Dim days As Long

    ms = GetTickCount()
    days = ms \ MS_PER_DAY
    ms = ms - days * MS_PER_DAY
    hrs = ms \ MS_PER_HR
    ms = ms - hrs * MS_PER_HR
    mins = ms \ MS_PER_MIN
    ms = ms - mins * MS_PER_MIN
    secs = ms \ MS_PER_SEC
    ms = ms - secs * MS_PER_SEC

    lblDays.Caption = Format$(days) & " days"
    lblHrs.Caption = Format$(hrs) & " hours"
    lblMins.Caption = Format$(mins) & " minutes"
    lblSecs.Caption = Format$(secs) & " seconds"
End Sub