Wanted neat / experienced coder :)

[jg007]

I have a project that I have been playing with and I could really do with somebody who has time to spare to look through my code and suggest how I could have tidied up some of the lengthy code ( mainly if statements )

the project is nothing major as is supposed to be a little timer that stays topmost on my screen and changes colour according to the closeness of four alarm times and is supposed to help me at work to monitor the closeness of breaks as I easily get lost doing things and miss the breaks

some things have been changed into functions and are neater but others I could not work out how to tidy up

unfortunately no monetary prize awaits any volunteers but I will really appreciate any pointers I can get

example code below -

 Public Sub check_enabled()

        If alarmisabove(BreakTimeA._sumtime) Then
            BreakTimeA._enabled = True
            Timer1ToolStripMenuItem.Checked = True
        Else
            BreakTimeA._enabled = False
            Timer1ToolStripMenuItem.Checked = False
        End If

        If alarmisabove(BreakTimeB._sumtime) Then
            BreakTimeB._enabled = True
            Timer2ToolStripMenuItem.Checked = True
        Else
            BreakTimeB._enabled = False
            Timer2ToolStripMenuItem.Checked = False
        End If

        If alarmisabove(breakTimeC._sumtime) Then
            breakTimeC._enabled = True
            Timer3ToolStripMenuItem.Checked = True
        Else
            breakTimeC._enabled = False
            Timer3ToolStripMenuItem.Checked = False
        End If

        If alarmisabove(breakTimeD._sumtime) Then
            breakTimeD._enabled = True
            Timer4ToolStripMenuItem.Checked = True
        Else
            breakTimeD._enabled = False
            Timer4ToolStripMenuItem.Checked = False
        End If


    End Sub