PassGen

Public Class Form1

    Dim rn As New Random

    Private Sub Button_Start_Clich(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Start.Click
        password.Clear()
        Dim Chars() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789".ToCharArray
        For i As Integer = 1 To TextBox3.Text
            password.AppendText(Chars(rn.Next(Chars.Length)))
        Next
    End Sub

End Class