Bilgisayar Kaç Saattir 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