Visual Basic - problemas con un arreglo

resulta qu tengo que generar un arrego de 10 numeros del 0 al 9 y que ninguno se repita
¡como lo puedo hacer?

es urgente porfi.
graxias a los que respondan

Dim Numeros(0 To 10) As Integer, Num As Integer, Existe As Boolean, J As Integer, I As Integer

For I = 0 To UBound(Numeros)
Numeros(I) = -1
Next

Do While Num <= 10
DoEvents
Num = Num + 1
Pri:

Randomize
J = Int(Rnd * 10)
For I = 0 To UBound(Numeros)
DoEvents
If J = Numeros(I) Then
GoTo Pri
End If
Next

Numeros(Num) = J
List1.AddItem Numeros(Num)
If Num = 10 Then Exit Do
Loop