From startup to end, I just want a label showing how long the application has been running, and VB is being a pain in the butt for me, keeps giving me an "overflow".

Basically, this is what I want:


00:00:00 <-0 seconds
00:00:01 <-1 second
00:00:02 <-2 seconds
.....
.....
.....
00:01:00 <-1 minute
00:02:00 <-2 minutes
00:03:00 <-3 minutes
00:04:00 <-4 minutes
00:05:00 <-5 minutes
....
....
............
01:00:00 <-1 hour


This is the code I have, somehow, I believe it's wrong, but maybe someone can help and point me in the right direction. Never had problems like this before.


Code:
Private Declare Function GetTickCount& Lib "kernel32" ()

Label1.Caption = GetTickCount& / (1000 * 60 * 60) Mod 24 & ":" & GetTickCount& / (1000 * 60) Mod 60 & ":" & GetTickCount& / (1000) Mod 60