Detectar KeyCode

[truskyvb]

Hola, ¿cómo puedo detectar la pulsación de Shift y la tecla del *+ y / del teclado?

El código que tengo va asi:

If KeyCode = vbKey0 Or KeyCode = vbKeyNumpad0 Then ' "0"
Call cmd_Numeros_Click(0)
ElseIf KeyCode = vbKeyDecimal Or KeyCode = 43 Then ' ","
Call cmd_Numeros_Click(1)
ElseIf KeyCode = vbKeyDecimal Or KeyCode = 44 Then ' ","
Call cmd_Numeros_Click(1)
End if

El problema es que no se poner el signo de la multiplicación y de la división (Mayúscula + / barra del 7)

Escribo esto pero no funciona:
ElseIf KeyCode = vbKeyMultiply Or vbKeyShift And KeyCode = 187

Gracias de antemano.
Un saludo

[pkj]

ElseIf KeyCode = vbKeyMultiply Or (Shift=1 And KeyCode = 187) Then


ElseIf KeyCode = vbKeyDivide Or (Shift=1 And KeyCode = 55) Then


ElseIf KeyCode = vbKeyAdd Or KeyCode = 187 Then

[truskyvb]

Antes de nada, gracias por la ayuda.

Funciona excepto la división. No captura la tecla 55.

Un saludo

[pkj]

Para usar la tecla del "7" tienes que pulsar tambien shift:

A mi así me detecta las 2, la del teclado numérico y la del 7 con el shift pulsado.

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDivide Or (Shift = 1 And KeyCode = 55) Then MsgBox "detectado /"
End Sub

[truskyvb]

Tienes razón. Ya está hecho. Gracias por todo.