Ti posto questo codice che, anche se fatto un pò in fretta, sembra funzionare. Attenzione devi settare la proprietà del form KeyPreviw=False:
codice:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If TypeOf ActiveControl Is TextBox Then
Select Case KeyCode
Case vbKeyUp 'Freccia sù
MsgBox ("Hai premuto freccia sù")
KeyCode = 0
Case vbKeyDown 'Freccia giù
MsgBox ("Hai premuto freccia giù")
KeyCode = 0
End Select
End If
End Sub
Ciao.
Scusa, non mi ero accorto che chiedevi per VB.Net. L'esempio è per VB6.