Public Class Form1
Dim temp As Double
Dim n As Environment
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim b As String
b = (n.TickCount / 3600000)
temp = b
tempo.Text = CStr(System.Math.Round(CDbl(b), 0)) & " ore " & CStr(System.Math.Round(CDbl((temp - (CStr(System.Math.Round(CDbl(b), 0)))) * 60), 0)) & " minuti"
If CStr(System.Math.Round(CDbl((temp - (CStr(System.Math.Round(CDbl(b), 0)))) * 60), 0)) < 0 Then
tempo.Text = CStr(System.Math.Round(CDbl(b), 0)) - 1 & " ore " & 60 + CStr(System.Math.Round(CDbl((temp - (CStr(System.Math.Round(CDbl(b), 0)))) * 60), 0)) & " minuti"
End If
End Sub
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
Me.Visible = True
NotifyIcon1.Visible = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
NotifyIcon1.Visible = True
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start("http://oenrik.it")
End Sub
End Class