Private Sub TextBox1_KeyDown(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
  If e.KeyCode = Keys.Down AndAlso e.Shift = True Then
    TextBox2.Focus()
  End If
End Sub

Private Sub TextBox1_KeyDown(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
  If e.KeyCode = Keys.Down AndAlso e.Control = True Then
    TextBox2.Focus()
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de