Randomowe Znaki - Problem

[DemomanHACK]

Siemka, mam tutaj randomowe znaki w visual basic:

Moja funkcja na generowanie randomowych znaków:

Private Function GenerateRandomString(ByRef len As Integer, ByRef upper As Boolean) As String
        Dim rand As New Random()
        Dim allowableChars() As Char = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLOMNOPQRSTUVWXYZ0123456789".ToCharArray()
        Dim final As String = String.Empty
        For i As Integer = 0 To len - 1
            final += allowableChars(rand.Next(allowableChars.Length - 1))
        Next

        Return IIf(upper, final.ToUpper(), final)
    End Function

Mój kod na wyświetlanie kodu:

Dim kod1 = GenerateRandomString(5, False).ToString
            Dim kod2 = GenerateRandomString(5, False).ToString
            Dim kod3 = GenerateRandomString(5, False).ToString
            Dim kod4 = GenerateRandomString(5, False).ToString
            Dim kod5 = GenerateRandomString(5, False).ToString
            TextBox1.Text = kod1 + " " + kod2 + " " + kod3 + " " + kod4 + " " + kod5

I w tym jest problem, że wyświetla tak jakbym zrobił:

TextBox1.Text = kod1 + " " + kod1 + " " + kod1 + " " + kod1 + " " + kod1 

Proszę o podpowiedź jak to naprawić.

[Xau]

Chyba musisz ustawić ziarno dla obiektu random, bo inaczej zawsze będzie losować te same liczby.

[DemomanHACK]

Możesz mi pomóc z tym ? Jestem w tych sprawach zielony.

[Xau]

Musisz podać jakąś wartość dla konstruktora klasy Random, aby mógł na jej podstawie generować liczby. Może to być np. aktualny czas pobrany za pomocą System.DateTime.Now.Millisecond.

[DemomanHACK]

Dzięki, temat można zamknąć.