Criando um gerador de senhas (no vb)

Eai galera , tudo na paz, hj eu trago(não cigarro) este tutorial para vcs
Vamos lá:
Adicione um text e um botão.
Adicione um text e um botão.
Código inteiro:


Código:
Private Sub Command1_Click()
Text1 = GenerateCode() fazer texto ur certo é chamado Text1
End Sub

Public Function GenerateCode()
strInputString = "1234567890abcdefghijklmnopqrstuvwxyz"
'Estes são os numeros e textos que serão a senha

intLength = Len(strInputString)

intNameLength = 7 '

Randomize Torna Aleatorio

strName = ""

For intStep = 1 To intNameLength
intRnd = Int((intLength * Rnd) + 1)

strName = strName & Mid(strInputString, intRnd, 1)
Next

GenerateCode = strName
End Function
__________________


END--