Ninja Gaiden Themed Countdown Timer

Public Class frmNGBTimer
    Dim StartCountDown As Boolean = False
    Dim Hours As Integer
    Dim Minutes As Integer
    Dim Seconds As Integer


    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub YoutubeChannelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles YoutubeChannelToolStripMenuItem.Click
        Process.Start("https://www.youtube.com/my_videos?o=U")
    End Sub

    Private Sub NinjaArchivesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NinjaArchivesToolStripMenuItem.Click
        Process.Start("http://ninjaarchives.com/")
    End Sub


    Private Sub NumericMinutes_ValueChanged(sender As Object, e As EventArgs) Handles NumericMinutes.ValueChanged
        NumericMinutes.Maximum = 60
        lblMinutes.Text = NumericMinutes.Value
    End Sub

    Private Sub NumericHours_ValueChanged(sender As Object, e As EventArgs) Handles NumericHours.ValueChanged
        NumericHours.Maximum = 99
        lblHour.Text = NumericHours.Value

    End Sub

    Private Sub NumericSeconds_ValueChanged(sender As Object, e As EventArgs) Handles NumericSeconds.ValueChanged
        NumericSeconds.Maximum = 60
        lblSeconds.Text = NumericSeconds.Value
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Interval = 1000
        'Handles seconds
        If lblSeconds.Text > 0 Then
            'StartCountDown = True
            lblSeconds.Text = lblSeconds.Text - 1
            'ElseIf lblMinutes.Text = 0 Or lblHour.Text = 0 And lblSeconds.Text > 0 Then
            'lblSeconds.Text = lblSeconds.Text - 1
        End If

        If lblMinutes.Text > 0 And lblSeconds.Text = 0 Then
            lblMinutes.Text = lblMinutes.Text - 1
            lblSeconds.Text = +60
            lblSeconds.Text = lblSeconds.Text - 1
        End If

        If lblHour.Text > 0 And lblMinutes.Text = 0 And lblSeconds.Text = 0 Then
            lblHour.Text = lblHour.Text - 1
            lblMinutes.Text = +60
            lblSeconds.Text = +60
            lblSeconds.Text = lblSeconds.Text - 1
            lblMinutes.Text = lblMinutes.Text - 1

        End If



        If lblSeconds.Text = 59 And lblSeconds.Text > 0 And lblHour.Text = 0 And lblMinutes.Text = 0 Then
            'lblSeconds.ForeColor = Color.Red
            My.Computer.Audio.Play(My.Resources._60_second_sound, AudioPlayMode.Background)

        End If

        If lblSeconds.Text <= 60 And lblSeconds.Text > 0 And lblHour.Text = 0 And lblMinutes.Text = 0 Then
            lblSeconds.ForeColor = Color.Red
        End If

        If lblHour.Text = 0 And lblMinutes.Text = 0 And lblSeconds.Text = 11 Then
            My.Computer.Audio.Play(My.Resources._10_Second_CountDown, AudioPlayMode.Background)
            'My.Computer.Audio.Play(My.Resources._60_second_sound, AudioPlayMode.Background)

        End If




        If lblHour.Text = 0 And lblMinutes.Text = 0 And lblSeconds.Text = 0 Then
            Timer1.Enabled = False
            lblSeconds.ForeColor = Color.Yellow
            My.Computer.Audio.Stop()
            MsgBox("Time is Up!")
            NumericHours.Enabled = True
            NumericMinutes.Enabled = True
            NumericSeconds.Enabled = True
            NumericHours.Value = 0
            NumericMinutes.Value = 0
            NumericSeconds.Value = 0
            lblHour.Text = "00"
            lblMinutes.Text = "00"
            lblSeconds.Text = "00"
            btnStartTimer.Enabled = True
            btnStopTimer.Enabled = False

        End If




    End Sub

    Private Sub btnStartTimer_Click(sender As Object, e As EventArgs) Handles btnStartTimer.Click
        LockInputs()
        'Timer1.Enabled = True
        Hours = NumericHours.Value
        Minutes = NumericMinutes.Value
        Seconds = NumericSeconds.Value



    End Sub


    Private Sub LockInputs()
        If NumericHours.Value = 0 And NumericMinutes.Value = 0 And NumericSeconds.Value = 0 Then
            MsgBox("Input your desired time first!")
        Else
            NumericHours.Enabled = False
            NumericMinutes.Enabled = False
            NumericSeconds.Enabled = False
            Timer1.Enabled = True
            btnStartTimer.Enabled = False
            btnStopTimer.Enabled = True
        End If


    End Sub

    Private Sub btnStopTimer_Click(sender As Object, e As EventArgs) Handles btnStopTimer.Click
        My.Computer.Audio.Stop()
        NumericHours.Enabled = True
        NumericMinutes.Enabled = True
        NumericSeconds.Enabled = True
        NumericHours.Value = 0
        NumericMinutes.Value = 0
        NumericSeconds.Value = 0
        lblHour.Text = "00"
        lblMinutes.Text = "00"
        lblSeconds.Text = "00"
        Timer1.Enabled = False
        btnStartTimer.Enabled = True
        btnStopTimer.Enabled = False
        lblSeconds.ForeColor = Color.Yellow

    End Sub
    Private Sub Timer_AudioCountDown_Tick(sender As Object, e As EventArgs) Handles Timer_AudioCountDown.Tick
        'Timer_AudioCountDown.Interval = 11000
        ' My.Computer.Audio.Play(My.Resources._10_Second_CountDown, AudioPlayMode.Background)

        'If Timer_AudioCountDown.Interval = 0 Then
        'My.Computer.Audio.Stop()
        'Timer_AudioCountDown.Enabled = False
        'End If
    End Sub
    Private Sub PlayNGBMusic()
        My.Computer.Audio.Play(My.Resources._60_second_sound, AudioPlayMode.Background)
    End Sub

    Private Sub FreestepdodgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FreestepdodgeToolStripMenuItem.Click
        Process.Start("www.FreeStepDodge.com")
    End Sub


End Class