Dim chord As Boolean

Dim chimes As Boolean

Dim soundOn As Boolean

Private Sub chkRed_Click()

imgRed.Picture = LoadPicture("C:\vb\red.bmp")

If chord = True And soundOn = False Then

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

ElseIf chimes = True And soundOn = False Then

WindowsMediaPlayer1.URL = "C:\vb\chimes.wav"

End If

End Sub

Private Sub chkGreen_Click()

imgGreen.Picture = LoadPicture("C:\vb\green.bmp")

If chord = True And soundOn = False Then

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

ElseIf chimes = True And soundOn = False Then

WindowsMediaPlayer1.URL = "C:\vb\chimes.wav"

End If

End Sub

Private Sub chkBlue_Click()

imgBlue.Picture = LoadPicture("C:\vb\blue.bmp")

If chord = True And soundOn = False Then

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

ElseIf chimes = True And soundOn = False Then

WindowsMediaPlayer1.URL = "C:\vb\chimes.wav"

End If

End Sub

Private Sub chkClear_Click()

imgRed.Picture = LoadPicture("C:\vb\white.bmp")

imgGreen.Picture = LoadPicture("C:\vb\white.bmp")

imgBlue.Picture = LoadPicture("C:\vb\white.bmp")

chkRed.Value = False

chkGreen.Value = False

chkBlue.Value = False

Call Clear

End Sub

Private Sub cmdExit_Click()

End

End Sub

Public Sub Clear()

If chkClear.Value = True Then

chkClear.Value = False

End If

End Sub

Private Sub cmdSounds_Click()

Frame1.Visible = Not Frame1.Visible 'toggles on/off

soundOn = Not soundOn

End Sub

Private Sub optChimes_Click()

chord = False

chimes = True

End Sub

Private Sub optchord_Click()

chord = True

chimes = False

End Sub