Visual Basic > Code Snippets

Random password generator

Random password generator

Const chars = "ABCDEFGHIJKLMNOPQRSTyvwxyzabcdefghijklmnopqrstyvwxyz123456789" 
Private Sub Command1_Click()
Dim r, i
Text1 = ""

For i = 1 To 8
Randomize
r = Int((Rnd * 61) + 1)
Text1 = Text1 & Mid(chars, r, 1)
Next i
End Sub