Private Sub optRed_Click()

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

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

End Sub

Private Sub optGreen_Click()

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

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

End Sub

Private Sub optBlue_Click()

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

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

End Sub

Private Sub optClear_Click()

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

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

End Sub

Private Sub cmdExit_Click()

End

End Sub