[Derkel]

How to Make a Random Password Generator

Create a text box and command button.
Add this code to your form:

Private Sub Command1_Click()
   Text1 = GenerateCode() 'make sure ur textbox is called Text1
End Sub

Public Function GenerateCode()
   strInputString = "1234567890abcdefghijklmnopqrstuvwxyz" '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