VB array reset problem

See more:

VB

I am using the code below inside a program I am building.

How can I reset the numberlist.count to 0 when I need to call the routine again?
The program keeps telling me that the numberlist.count is a read only variable. Other than not being able to reset it, the code works 100%.

Any suggestions would be greatly welcomed!

Public Sub Gamepeicepick()

        Dim gametile As Integer = 0

        Do
            Randomize()

            gametile = tilerand.Next(1, 62) ' NUmber of images to pick from

            If Numberlist.Contains(gametile) = True Then Continue Do

            Numberlist.Add(gametile)

        Loop Until Numberlist.Count = 31

        Numberlist.Sort()

        Dim sb As New System.Text.StringBuilder
        For index As Integer = 0 To Numberlist.Count - 1
            sb.Append(Numberlist.Item(index).ToString & ",")
        Next

        Tile01 = (Numberlist.Item(0))
        Tile02 = (Numberlist.Item(1))
        Tile03 = (Numberlist.Item(2))
        Tile04 = (Numberlist.Item(3))
        Tile05 = (Numberlist.Item(4))
        Tile06 = (Numberlist.Item(5))
        Tile07 = (Numberlist.Item(6))
        Tile08 = (Numberlist.Item(7))
        Tile09 = (Numberlist.Item(8))
        Tile10 = (Numberlist.Item(9))

        Tile11 = (Numberlist.Item(10))
        Tile12 = (Numberlist.Item(11))
        Tile13 = (Numberlist.Item(12))
        Tile14 = (Numberlist.Item(13))
        Tile15 = (Numberlist.Item(14))
        Tile16 = (Numberlist.Item(15))
        Tile17 = (Numberlist.Item(16))
        Tile18 = (Numberlist.Item(17))
        Tile19 = (Numberlist.Item(18))
        Tile20 = (Numberlist.Item(19))

        Tile21 = (Numberlist.Item(20))
        Tile22 = (Numberlist.Item(21))
        Tile23 = (Numberlist.Item(22))
        Tile24 = (Numberlist.Item(23))
        Tile25 = (Numberlist.Item(24))
        Tile26 = (Numberlist.Item(25))
        Tile27 = (Numberlist.Item(26))
        Tile28 = (Numberlist.Item(27))
        Tile29 = (Numberlist.Item(28))
        Tile30 = (Numberlist.Item(29))
        Tile31 = (Numberlist.Item(30))


    End Sub