Создать массив случайных чисел, где каждый элемент повторяется дважды - Visual Basic .NET

Формулировка задачи:

Возник вопрос. Есть массив чисел

Public TmpImg(35) As Integer

каждому из них изначально присвоено значение -1 нужно им присвоить значения от 0 до 17 При этом каждого числа должно быть по паре но в случайных позициях (по индексу) Например чтобы получилось так:

TmpImg(0) = 15 
TmpImg(1) = 11
TmpImg(2) = 13
TmpImg(3) = 11
TmpImg(4) = 15
TmpImg(5) = 13

так сказать "каждой твари по паре"

Решение задачи: «Создать массив случайных чисел, где каждый элемент повторяется дважды»

textual
                            Листинг программы 
                        

                                    Dim TmpImg(35) As Integer
        Dim PeppaPig As New List(Of Integer)
        For I As Integer = 0 To TmpImg.Length / 2 - 1
            PeppaPig.AddRange(New Integer() {I, I})
        Next
        Dim R As New Random
        Dim RemInd As Integer
        For I As Integer = 0 To TmpImg.Length - 1
            RemInd = R.Next(0, PeppaPig.Count)
            TmpImg(I) = PeppaPig(RemInd)
            PeppaPig.RemoveAt(RemInd)
            ListBox1.Items.Add(TmpImg(I))
        Next
                        