Private Sub Mit_Enter_weiter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        If e.KeyCode = Keys.Enter Then
            Dim Taste As New KeyPressEventArgs(CType("9", Char))
            MyBase.OnKeyPress(Taste)
            e.Handled = True
        End If
    End Sub
 
 
    Protected Overrides Sub OnKeyPress(ByVal e As _
      Windows.Forms.KeyPressEventArgs)
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
        Else
            MyBase.OnKeyPress(e)
        End If
    End Sub

Gru?

Martin