Ehhez csupán egyetlen függvényhívásra van szükségünk, hogy megtudhassuk, ez pedig nem más, mint a TickCount.
Ez a függvény ezredmásodpercben adja vissza azt az értéket, hogy mióta működik a Windows a legutóbbi rendszerindítástól számítva.
Ha ez megvan, akkor már csupán némi átalakítás szükséges, hogy mindez nap, óra, perc, másodperc formájában is olvasható legyen.
Ahhoz, hogy a Form-on mindig a legfrissebb időpont jelenjen meg, egy Timer komponenst használunk fel. Itt az Enabled property-t igazra állítjuk, ezzel engedélyezzük annak működését. Az Interval property-jét 1-re állítjuk a lehető leggyorsabb frissítés érdekében, végül a Elapsed nevű eseményéhez létrehozunk egy eseménykezelőt egy dupla kattintással. Ez a függvény fut le, amikor az Interval property-ben ezredmásodpercben megadott idő eltelt. Itt lekérdezzük System.Environment.TickCount-al az aktuális számláló értékét, melyet átalakíthatunk olvashatóbb formátumra és megjelenítjük.
Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
Dim i As Integer = Environment.TickCount
Dim s As Integer = i / 1000
Dim m As Integer = s / 60
Dim h As Integer = m / 60
Dim d As Integer = h / 24
s = Decimal.Remainder(s, 60)
m = Decimal.Remainder(m, 60)
h = Decimal.Remainder(h, 24)
Label1.Text = d.ToString() + " nap " + h.ToString() + ":" + m.ToString() + ":" + s.ToString()
Label2.Text = i.ToString()
End Sub