Vb.net Bilgisayar Kaç Saatir Açık

Public Class Form1
   Public Function PC_Kac_Saat_Acik() As String
       Dim SpyCoders As String = String.Empty
       SpyCoders += Math.Round(Environment.TickCount / 86400000) & " gün, "
       SpyCoders += Math.Round(Environment.TickCount / 3600000 Mod 24) & " saat, "
       SpyCoders += Math.Round(Environment.TickCount / 120000 Mod 60) & " dakika, "
       SpyCoders += Math.Round(Environment.TickCount / 1000 Mod 60) & " saniye."
       Return SpyCoders
   End Function
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       MessageBox.Show(PC_Kac_Saat_Acik)
   End Sub