Public Sub PW(ByVal Text As String, ByVal Box As TextBox)
        '--------- Einstellungen -----------
 
        Dim Zeichen As String = _
          "abcdefghiklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
        Dim warten As Integer = 3000 ' Zeit in Msec bis nächstes Zeichen 
        ' freigelegt wird
        Dim warten2 As Integer = 200 ' Pause in Msec zwischen dem Wechsel der 
        ' Zufallzeichen
        '.......................
        Dim RandomZeit As Boolean = True ' Zeit bis nächstes Zeichen freigelegt 
        ' wird ist zufall
        Dim Max_Zeit = 5000  'Warte bis maximal Msec ...
        Dim Min_zeit = 500  'Warte minimal Msec ...
 
        '--------- Variablen -----------
        Dim TimeOut, Timeout2 As Integer
        Dim rnd As New Random
        Dim i, j, max As Integer
        Dim data As String
        '--------- Code -----------
        If Max_Zeit < Max_Zeit Then Exit Sub
        For j = 0 To Text.Length
            If RandomZeit = False Then
                TimeOut = warten + Environment.TickCount()
            Else
                TimeOut = rnd.Next(Min_zeit, Max_Zeit) + Environment.TickCount()
            End If
            Do While Environment.TickCount() <= TimeOut
                Application.DoEvents()
                data = ""
                For i = 1 To Text.Length - j
                    data &= Mid(Zeichen, rnd.Next(1, Zeichen.Length), 1)
                Next i
                Timeout2 = warten2 + Environment.TickCount()
                Do While Environment.TickCount() <= Timeout2
                    Application.DoEvents()
                Loop
                Box.Text = Mid(Text, 1, j) & data
            Loop
        Next j
    End Sub