Imports System
Imports System.Text
Public Class Test
Public Shared Sub Main()
Dim s As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Dim r As New Random
Dim sb As New StringBuilder
For i As Integer = 1 To 15
sb.Append(s.Substring(r.Next(0, 62), 1))
Next
Console.WriteLine(sb.ToString())
End Sub
End Class
' run:
'
' Mh9lils2bFBOFbP