Password - Form1.frm - Piero Tofy.it


	Dim s As String, psw As String, lenght As Integer, i As Integer, cod As String, j As Integer Private Sub Command1_Click() psw = "" If Text1.Text <> "" And Len(Text1.Text) > 2 Then s = Trim(Text1.Text) lenght = Len(Text1.Text) For i = 1 To lenght For j = 1 To 4 Randomize cod = Chr(CStr(Int(Rnd * 48) + 48)) psw = psw & cod Next j psw = psw & "-" Next i End If Text1.Text = psw Text1.SetFocus End Sub