[Release] Password Generator Source Code

Imports System.IO

Public Class Form1
    Const chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890 09876543210 flameswor10 rulzorz xD"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim r, i
        Dim x As String

        For i = 1 To NumericUpDown1.Value
            Randomize()
            r = Int((Rnd() * 61) + 1)

            x = x & Mid(chars, r, 1)

        Next i
        TextBox1.Text = (x)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
msgbox("Flameswor10 made this Password Generator Source Cdoe")
Button1.text = "Generate"
    End Sub
End Class