Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer=
  Select Case KeyCode
    Case vbKeyDown
      ' Fokus auf nächstes Control setzen
      KeyCode = 0
      SendKeys "{TAB}", True
 
    Case vbKeyUp
      ' Fokus auf voriges Control setzen
      KeyCode = 0
      SendKeys "+{TAB}", True
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de