Cómo escribir un evento de pulsación de tecla vb

Agregue un botón al formulario y escriba el siguiente código en el área de códigos

private sub form_keypress(keyascii as integer)

if chr(keyascii)= " " luego comando1.left =command1.left +100

fin sub

subcomando privado1_keypress(keyascii como entero)

llamar a form_keypress(keyascii)

end sub

Eso es todo.