Näppäinpainalluksen

Private Sub Form_KeyDown(KeyCode As Integer, shift As Integer)

End Sub

Ja jos pitää olla tietty näppäin jota painat niin näin:

'jos näppäin on enter:
Private Sub Form_KeyDown(KeyCode As Integer, shift As Integer)
if keycode=13 then 'eli tuo 13 on näppäin koodi
'tähän koodisi
end if
End Sub

ja näppäin koodin saat selville vaikkapa näin:

Private Sub Form_KeyDown(KeyCode As Integer, shift As Integer)
AutoRedraw = True
Cls 'tyjennetään aiempi teksti
Print KeyCode 'tulostetaan näppäimen koodi formille
End Sub