piANO (resolta)

Public Class Form1
'DEFINIM LES VARIABLES
Dim missatge As Integer
'EN CARREGAR EL PROGRAMA
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'OMPLE COMBO AMB 1.000 INSTRUMENTS
For i = 0 To 999
ComboBox1.Items.Add("Instrument" & Str(i))
Next i
'POSA EL FOCUS AL TEXTBOX
TextBox1.Focus()
End Sub
'EN FER CLIC AL BOTO
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'MOSTRA MSGBOX
missatge = MsgBox("Vols apagar el piano?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Missatge de piANO")
'SI PICA SI SURT
If (missatge = vbYes) Then End
End Sub
'SI PREM UNA TECLA DEL TECLAT
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'PER A CADA TECLA
If Asc(e.KeyChar) = 122 Then TeclaC.BackColor = Color.Gray
If Asc(e.KeyChar) = 115 Then TeclaCsos.BackColor = Color.Gray
If Asc(e.KeyChar) = 120 Then TeclaD.BackColor = Color.Gray
If Asc(e.KeyChar) = 100 Then TeclaDsos.BackColor = Color.Gray
If Asc(e.KeyChar) = 99 Then TeclaE.BackColor = Color.Gray
If Asc(e.KeyChar) = 118 Then TeclaF.BackColor = Color.Gray
If Asc(e.KeyChar) = 103 Then TeclaFsos.BackColor = Color.Gray
If Asc(e.KeyChar) = 98 Then TeclaG.BackColor = Color.Gray
If Asc(e.KeyChar) = 104 Then TeclaGsos.BackColor = Color.Gray
If Asc(e.KeyChar) = 110 Then TeclaA.BackColor = Color.Gray
If Asc(e.KeyChar) = 106 Then TeclaAsos.BackColor = Color.Gray
If Asc(e.KeyChar) = 109 Then TeclaB.BackColor = Color.Gray
End Sub
'EN SOLTAR TECLA
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
'TORNA TECLA AL SEU COLOR
TeclaC.BackColor = Color.White
TeclaD.BackColor = Color.White
TeclaE.BackColor = Color.White
TeclaF.BackColor = Color.White
TeclaG.BackColor = Color.White
TeclaA.BackColor = Color.White
TeclaB.BackColor = Color.White
TeclaCsos.BackColor = Color.Black
TeclaDsos.BackColor = Color.Black
TeclaFsos.BackColor = Color.Black
TeclaGsos.BackColor = Color.Black
TeclaAsos.BackColor = Color.Black
End Sub
End Class