Private Sub MinutesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinutesToolStripMenuItem.Click
 
        '5 minute menu option
        interval = 300000
        tmrTimer.Interval = interval
        MinutesToolStripMenuItem.Checked = True
        MinutesToolStripMenuItem1.Checked = False
        MinutesToolStripMenuItem2.Checked = False
        MinutesToolStripMenuItem3.Checked = False
        MinutesToolStripMenuItem4.Checked = False
        lblInterval.Text = "Ping interval: " & tmrTimer.Interval.ToString / 60000 & " minutes"
    End Sub
 
    Private Sub MinutesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinutesToolStripMenuItem1.Click
 
        '10 minute menu option
        interval = 600000
        tmrTimer.Interval = interval
        MinutesToolStripMenuItem.Checked = False
        MinutesToolStripMenuItem1.Checked = True
        MinutesToolStripMenuItem2.Checked = False
        MinutesToolStripMenuItem3.Checked = False
        MinutesToolStripMenuItem4.Checked = False
        lblInterval.Text = "Ping interval: " & tmrTimer.Interval.ToString / 60000 & " minutes"
    End Sub
 
    Private Sub MinutesToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinutesToolStripMenuItem2.Click
 
        '15 minute menu option
        interval = 900000
        tmrTimer.Interval = interval
        MinutesToolStripMenuItem.Checked = False
        MinutesToolStripMenuItem1.Checked = False
        MinutesToolStripMenuItem2.Checked = True
        MinutesToolStripMenuItem3.Checked = False
        MinutesToolStripMenuItem4.Checked = False
        lblInterval.Text = "Ping interval: " & tmrTimer.Interval.ToString / 60000 & " minutes"
    End Sub
 
    Private Sub MinutesToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinutesToolStripMenuItem3.Click
 
        '30 minute menu option
        interval = 1800000
        tmrTimer.Interval = interval
        MinutesToolStripMenuItem.Checked = False
        MinutesToolStripMenuItem1.Checked = False
        MinutesToolStripMenuItem2.Checked = False
        MinutesToolStripMenuItem3.Checked = True
        MinutesToolStripMenuItem4.Checked = False
        lblInterval.Text = "Ping interval: " & tmrTimer.Interval.ToString / 60000 & " minutes"
    End Sub
 
    Private Sub MinutesToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinutesToolStripMenuItem4.Click
 
        '60 minute menu option
        interval = 3600000
        tmrTimer.Interval = interval
        MinutesToolStripMenuItem.Checked = False
        MinutesToolStripMenuItem1.Checked = False
        MinutesToolStripMenuItem2.Checked = False
        MinutesToolStripMenuItem3.Checked = False
        MinutesToolStripMenuItem4.Checked = True
        lblInterval.Text = "Ping interval: " & tmrTimer.Interval.ToString / 60000 & " minutes"
    End Sub