Hey,

Mit diesem kleinen und einfachen code lassen sich sicherere random passwörter generieren.

Man braucht: 1 Button, 1 Label = lblPwd, 1 NumericUpDown = nud
Mit dem NumericUpDown kann man die Länge des Passworts einstellen.
Code:
Public Class Form1 
Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" 
Dim r As New Random 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
lblPwd.Text = "" 
For i As Integer = 1 To nud.Value 
generieren() 
Next 
End Sub 

Private Sub generieren() 
Try 
lblPwd.Text += Buchstaben.Substring(r.Next(1, 62), 1) 
Catch ex As Exception 
MsgBox(ex.Message) 
End Try 
End Sub

End Class
Grüße