Dim number(5) As Integer
        Dim subscript As Integer
        Dim searchSubscript As Integer
        Dim isFound As Boolean
        Dim raNumber As Integer
        Dim randomGenerator As New Random

        number(0) = 5
        subscript = number(1)
        Do While subscript < number.Length
            raNumber = randomGenerator.Next(1, 54)
            searchSubscript = 0
            Do While searchSubscript < subscript
                isFound = False
                If searchSubscript = raNumber Then
                    isFound = True
                Else
                    searchSubscript = searchSubscript + 1
                End If
            Loop
            If isFound = False Then
                subscript = raNumber
                subscript = subscript + 1
            End If
        Loop
        'display the numbers
        Me.xLotteryLabel.Text = (subscript.ToString())
    End Sub
End Class