listbox 2 keer zelfde regel

[Semafoor]

hallo allemaal.

ik wil een listbox vullen met nummers tot maximaal 20 regels.
alleen komen dan af en toe de nummers maar een keer voor en de andere keer 3 of meer.
Ik wil alleen dat de nummers twee keer voorkomen. dus 10 verschillende getallen op 20 regels.

hoe kan ik dit het beste doen??

Ik heb voor randomnummers de volgende code gebruikt:

dim d As Integer
        For d = 0 To 19
            Dim key As Integer
            key = Int(Rnd() * 20)
            ListBox2.Items.Add(key)
        Next d

In de resources zitten afbeeldingen met de naam _1 _2 _3 enz.
wanneer er op een knop geklikt word moet deze de afbeelding krijgen welke listbox 2 aangeeft,

regel 1 is voor button 1
regel 2 is voor button 2
..
..

als ik dit doe werkt het echter nie wat doe ik fout?

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox2.SelectedIndex = "0"
        Dim s As Image
        s = "my.Resources._" & ListBox2.SelectedItem
        Button1.Image = s
    End Sub