Générateur de pseudo sous visual basic

Option Strict Off 
Option Explicit On 
Imports VB = Microsoft.VisualBasic 

Friend Class Form1 
    Inherits System.Windows.Forms.Form 

    Private mTab() As Object 

    Private Const nbChar As Short = 8  'Longueur du pseudo 

 Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click 
        Dim i As Short 
        Dim tirage As String 

        Label1.Text = "" 
        mTab = (New Object() {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}) 

        For i = 1 To nbChar 
            tirage = Alea() 
            Label1.Text = Label1.Text & tirage 
        Next i 

    End Sub 

    Private Function Alea() As Object 
        Dim max As Short 

        Randomize(VB.Timer()) 

        max = UBound(mTab) 

        Alea = mTab(CShort(Rnd() * max)) 

    End Function 
End Class