Visual Basic - generar numeros aleatorios listbox q no se repita

hola , mira mi problema es que no se como hacer para que genere numeros aleatorios sin que se repitan esto es lo que yo e echo aver silo puden modificar

el ejercicio consiste en generar 5 numeros aleatorios del 0 al 9 en un listbox sin que ni un nùmero se repita :

dim i, x as integer

for i = 1 to 5 genero solo 5 numeros aleatorios
i= i + 1
randomize
x = int(rnd()*10)+0 genero numeros aleatorios entre 0 y 9

if x <> list1.list then condicion para q no se repitan ?
list 1.additem x
else
exit sub salgo del sub hasta anecontrar numeros que no se repitan ?
endif

next

q te parece este codigo:

Dim i, x As Integer
Dim arrNumbers(5) As Integer

Dim repetido As Boolean
Randomize
For i = 1 To 5 'genero solo 5 numeros aleatorios
repetido = False


x = Int(Rnd() * 10) + 0 'genero numeros aleatorios entre 0 y 9
'arrNumbers(i - 1) = x
While repetido = False
For j = 0 To i - 1 'checar cada elemento del arreglo para buscar numero repetido
If i > 1 Then
If x = arrNumbers(j) Then
repetido = False
x = Int(Rnd() * 10) + 0 'genero numeros aleatorios entre 0 y 9
j = -1
ElseIf j = i - 1 Then
'arrNumbers(i - 1) = x
repetido = True
End If
Else
repetido = True
End If
Next j
Wend
arrNumbers(i - 1) = x
Next i
For i = 0 To UBound(arrNumbers) - 1
List1.AddItem arrNumbers(i)
Next i

metelo de preferencia en un sub para q solo lo llames...
saludos

Buen código.

Saludos cordiales.

Tu método para que no se repitan los números es perfecto. Me ha ayudado mucho, gracias por el aporte! +10...