Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
    Case vbKeyUp
      ...
    Case vbKeyDown
      ...
    Case vbKeyLeft
      ...
    Case vbKeyRight
      ...
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de