Private myList As New List(Of Char)
 
   Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      For i As Integer = 48 To 57
         myList.Add(Chr(i))
      Next
 
      For i As Integer = 65 To 90
         myList.Add(Chr(i))
      Next
 
      For i As Integer = 97 To 122
         myList.Add(Chr(i))
      Next
 
      ShuffleArray(myList)
   End Sub
 
   Public Sub ShuffleArray(ByVal array As List(Of Char), Optional ByVal _
     numberOfTimesToShuffle As Integer = 7)
      Dim rndPosition As New Random(DateTime.Now.Millisecond)
 
      For i As Integer = 1 To numberOfTimesToShuffle
         For i2 As Integer = 1 To array.Count
            swap(array(rndPosition.Next(0, array.Count)), array( _
              rndPosition.Next(0, array.Count)))
         Next
      Next
   End Sub
 
   Private Sub swap(ByRef arg1 As Char, ByRef arg2 As Char)
      Dim strTemp As Char = arg1
      arg1 = arg2
      arg2 = strTemp
   End Sub