Private Sub Timer1_Timer()
Dim lDifference As Long
Dim iDays As Integer, iHours As Integer, iMinutes As Integer
Dim iSeconds As Integer
lDifference = DateDiff("s", Now, #1/1/2007#)   '("s", Now, #   MONAT/TAG/JAHR  _
  #) 
iDays = lDifference \ (24 * 3600&)
lDifference = lDifference - iDays * 24 * 3600&
iHours = lDifference \ 3600
lDifference = lDifference - iHours * 3600&
iMinutes = lDifference \ 60
lDifference = lDifference - iMinutes * 60
iSeconds = lDifference
Label1.Caption = _
  iDays & " :" & _
  iHours & " :" & _
  iMinutes & " :" & _
  iSeconds & " "
End Sub