Olá, num sei se te ajuda, mas tava precisando disso também, e o máximo que consegui até agora foi pegar pelo menos o ascii que o cara digita: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub
com isso você pode transformar em letra assim:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox Chr$(KeyCode)
End Sub O problema é que se preciona algo que não é caracter, tipo Shift, Control ele aparece um quadrado, mas espero que te ajude um pouco pelo menos. . . falow! --edit-- eita pessoal, desculpa aí, agora que vi que o post é de 2007! foi mal!