PassGen

Public Class Form1

    Dim rn As New Random

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            ProgressBar1.Value = 100
            MsgBox("Fertig.")
            TextBox1.Clear()
            Dim Chars() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789".ToCharArray
            For i As Integer = 0 To TextBox3.Text()
                TextBox1.AppendText(Chars(rn.Next(Chars.Length)))
            Next
        End If
    End Sub

    Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
        Timer1.Start()
    End Sub
End Class