Private Sub tboRegex_KeyPress(sender As Object, _
        e As System.Windows.Forms.KeyPressEventArgs) Handles tboRegex.KeyPress
 
        If Asc(e.KeyChar) < 32 Then Exit Sub 'Steuerzeichen durchlassen
 
        Dim c As Char = e.KeyChar
 
        Dim reg As New System.Text.RegularExpressions.Regex _
            ("^[A-Za-z0-9]{1,9}$", _
            System.Text.RegularExpressions.RegexOptions.None)
 
        Dim m As System.Text.RegularExpressions.Match = reg.Match(c)
        If m.Length = 0 Then
            e.Handled = True 'Zeichen abfangen ????
            'Hier eventuell Button-Enabled-Eigenschaft setzen
        End If
    End Sub