Private Sub dudNummer_KeyDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles dudNummer.KeyDown
        Dim iKeyNumber
        Dim pPosition As Point = Cursor.Position
        Select Case e.KeyCode
            Case Keys.Down
                iKeyNumber = Convert.ToInt64(dudNummer.Text)
                iKeyNumber = iKeyNumber - 1
                dudNummer.Text = iKeyNumber
            Case Keys.Up
                iKeyNumber = Convert.ToInt64(dudNummer.Text)
                iKeyNumber = iKeyNumber + 1
                dudNummer.Text = iKeyNumber
        End Select
        Cursor.Position = pPosition
        GetAdressToPersID()
        SetTitel()
    End Sub