Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then CmdQ.BackColor = vbGreen
If KeyCode = vbKeyW Then CmdW.BackColor = vbGreen
If KeyCode = vbKeyE Then CmdE.BackColor = vbGreen
If KeyCode = vbKeyR Then CmdR.BackColor = vbGreen
If KeyCode = vbKeyT Then CmdT.BackColor = vbGreen
If KeyCode = vbKeyY Then CmdY.BackColor = vbGreen
If KeyCode = vbKeyU Then CmdU.BackColor = vbGreen
If KeyCode = vbKeyI Then CmdI.BackColor = vbGreen
If KeyCode = vbKeyO Then CmDo.BackColor = vbGreen
If KeyCode = vbKeyP Then Cmdp.BackColor = vbGreen
If KeyCode = vbKeyA Then Cmda.BackColor = vbGreen
If KeyCode = vbKeyS Then Cmds.BackColor = vbGreen
If KeyCode = vbKeyD Then Cmdd.BackColor = vbGreen
If KeyCode = vbKeyF Then Cmdf.BackColor = vbGreen
If KeyCode = vbKeyG Then Cmdg.BackColor = vbGreen
If KeyCode = vbKeyH Then Cmdh.BackColor = vbGreen
If KeyCode = vbKeyJ Then Cmdj.BackColor = vbGreen
If KeyCode = vbKeyK Then Cmdk.BackColor = vbGreen
If KeyCode = vbKeyL Then Cmdl.BackColor = vbGreen
If KeyCode = 192 Then cmdPuntoYComa.BackColor = vbGreen
If KeyCode = vbKeyZ Then cmdz.BackColor = vbGreen
If KeyCode = vbKeyX Then cmdx.BackColor = vbGreen
If KeyCode = vbKeyC Then cmdc.BackColor = vbGreen
If KeyCode = vbKeyV Then cmdv.BackColor = vbGreen
If KeyCode = vbKeyB Then cmdb.BackColor = vbGreen
If KeyCode = vbKeyN Then cmdn.BackColor = vbGreen
If KeyCode = vbKeyM Then cmdm.BackColor = vbGreen
If KeyCode = 188 Then cmdcoma.BackColor = vbGreen
If KeyCode = 190 Then cmdpunto.BackColor = vbGreen
If KeyCode = 111 Then cmdSlash.BackColor = vbGreen
If KeyCode = vbKeyControl Then cmdCtrl.BackColor = vbGreen
If KeyCode = vbKeySpace Then cmdbarra.BackColor = vbGreen
If Shift = vbAltMask Then cmdAlt.BackColor = vbGreen
End Sub
Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then CmdQ.BackColor = vbButtonFace
If KeyCode = vbKeyW Then CmdW.BackColor = vbButtonFace
If KeyCode = vbKeyE Then CmdE.BackColor = vbButtonFace
If KeyCode = vbKeyR Then CmdR.BackColor = vbButtonFace
If KeyCode = vbKeyT Then CmdT.BackColor = vbButtonFace
If KeyCode = vbKeyY Then CmdY.BackColor = vbButtonFace
If KeyCode = vbKeyU Then CmdU.BackColor = vbButtonFace
If KeyCode = vbKeyI Then CmdI.BackColor = vbButtonFace
If KeyCode = vbKeyO Then CmDo.BackColor = vbButtonFace
If KeyCode = vbKeyP Then Cmdp.BackColor = vbButtonFace
If KeyCode = vbKeyA Then Cmda.BackColor = vbButtonFace
If KeyCode = vbKeyS Then Cmds.BackColor = vbButtonFace
If KeyCode = vbKeyD Then Cmdd.BackColor = vbButtonFace
If KeyCode = vbKeyF Then Cmdf.BackColor = vbButtonFace
If KeyCode = vbKeyG Then Cmdg.BackColor = vbButtonFace
If KeyCode = vbKeyH Then Cmdh.BackColor = vbButtonFace
If KeyCode = vbKeyJ Then Cmdj.BackColor = vbButtonFace
If KeyCode = vbKeyK Then Cmdk.BackColor = vbButtonFace
If KeyCode = vbKeyL Then Cmdl.BackColor = vbButtonFace
If KeyCode = 192 Then cmdPuntoYComa.BackColor = vbButtonFace
If KeyCode = vbKeyZ Then cmdz.BackColor = vbButtonFace
If KeyCode = vbKeyX Then cmdx.BackColor = vbButtonFace
If KeyCode = vbKeyC Then cmdc.BackColor = vbButtonFace
If KeyCode = vbKeyV Then cmdv.BackColor = vbButtonFace
If KeyCode = vbKeyB Then cmdb.BackColor = vbButtonFace
If KeyCode = vbKeyN Then cmdn.BackColor = vbButtonFace
If KeyCode = vbKeyM Then cmdm.BackColor = vbButtonFace
If KeyCode = 188 Then cmdcoma.BackColor = vbButtonFace
If KeyCode = 190 Then cmdpunto.BackColor = vbButtonFace
If KeyCode = 111 Then cmdSlash.BackColor = vbButtonFace
If KeyCode = vbKeyControl Then cmdCtrl.BackColor = vbButtonFace
If KeyCode = vbKeySpace Then cmdbarra.BackColor = vbButtonFace
If Shift = vbAltMask Then cmdAlt.BackColor = vbButtonFace
End Sub
