Dim vPoints As Integer
        Dim vChars As Integer
        vPoints = "100"
        'Kleinbuchstaben
        If System.Text.RegularExpressions.Regex.IsMatch(TextBoxPasswort.Text, _
          "[abcdefghijklmnopqrstuvwxyz]") Then
        Else
            vPoints = vPoints - 20
        End If
        'Großbuchstaben
        If System.Text.RegularExpressions.Regex.IsMatch(TextBoxPasswort.Text, _
          "[ABCDEFGHIJKLMNOPQRSTUVWXYZ]") Then
        Else
            vPoints = vPoints - 20
        End If
        'Zahlen
        If System.Text.RegularExpressions.Regex.IsMatch(TextBoxPasswort.Text, _
          "[0123456789]") Then
        Else
            vPoints = vPoints - 20
        End If
        'sonderzeichen
        If System.Text.RegularExpressions.Regex.IsMatch(TextBoxPasswort.Text, _
          "[!§$%&/\{}()°^<>|?ß´`+*~#',;.:-_]") Then
        Else
            vPoints = vPoints - 20
        End If
        'Länge
        If TextBoxPasswort.Text.Length < 10 Then
            vChars = (10 - TextBoxPasswort.Text.Length) * 5
            vPoints = vPoints - vChars
        End If
 
        If vPoints <= 20 Then PictureBoxSicherheit.Image = _
          My.Resources.SehrSchwach
        If vPoints > 21 And vPoints <= 40 Then PictureBoxSicherheit.Image = _
        My.Resources.Schwach
        If vPoints > 41 And vPoints <= 60 Then PictureBoxSicherheit.Image = _
        My.Resources.Mittel
        If vPoints > 61 And vPoints <= 80 Then PictureBoxSicherheit.Image = _
        My.Resources.Stark
        If vPoints > 81 Then PictureBoxSicherheit.Image = My.Resources.SehrStark

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln