Random Password Generator
Create a text box and command button.
Add this code to your form:
Code:
Private Sub Command1_Click()
Text1 = GenerateCode() 'make sure ur textbox is called Text1
End Sub
Public Function GenerateCode() strInputString ="1234567890abcdefghijklmnopq rstuvwxyzABCDEFGHIJKLMNOPQRSTUVXYS" 'these are the characters which will be in the password
intLength = Len(strInputString)
intNameLength = 7 'edit this according to how long u want ur password to be Randomize ' jus to make it random :D
strName = "" For intStep = 1 To intNameLength intRnd = Int((intLength * Rnd) + 1)
strName = strName & Mid$(strInputString, intRnd, 1)
Next
GenerateCode = strName
End Function
debug it and it works.
