evento keydown

[andiii87]

hola, estoi haciendo un tp para el colegio en visual basic 6.0 qe consiste en crear un tateti
el tateti dispuse que se juege con el numberpad,
789
456
123

pero tengo un problema, por ejemplo, al apretar el numero 7 la parte de arriba a la izq , el textbox se tiene que pintar de rojo, para eso tengo qe usar text1.backcolor = (color)

pero, como uso el evento keydown
tengo usar un if ?
if kewdown= 7 then
text1.backcolor=color
enf if

[agus0]

Código:

Private Sub Command7_Click()
MsgBox "7"
End Sub

Private Sub Command7_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyNumpad7 Then
Command7_Click
End If
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyNumpad7 Then
Command7_Click
End If
End Sub

la accion "Keydown segun donde tengas el foco"

y con "Command7_Click" hace lo mismo que si uno hiciera clic en el Command7.

Si no entendes avisame...

Esper que te sea de ayuda suerte