Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Interval = 1000
        second += 1
        SecondLabel.Text = second
        If second = 59 Then
            minute += 1
            MinuteLabel.Text = minute
            second = 0

        End If
        If minute = 59 Then
            hour += 1
            HourLabel.Text = hour
            minute = 0
        End If
        If hour = 99 Then
            Timer1.Stop()
        End If
    End Sub