توليد بينهايت عدد تصادفي بدون تكرار

بسمه تعالي
اين سورس مي تواند بينهايت عدد تصادفي توليد كند، بدون اينكه تكراري باشد.
نظر خودتان را بنويسيد
شي هاي مورد نياز:
1: تكست باكس براي ورود عدد با نام textBoxNumber
2: يك ليست باكس براي خروج اعداد تصادفي با نام listBoxNumber .
نكته: هنگامي كه روي فرم كليك شود برنامه اجرا مي شود.

[HTML]Option Explicit
Option Base 1
Dim intNumber, intRndNumber, intCnt, intA As Double
Dim ArrayA() As Double
Private Sub form_Click()
On Error Resume Next
ListboxNumber.Clear
ListboxNumber.AddItem "UNlimited Numbers Is Supported", 0
ListboxNumber.AddItem String(59, "*"), 1

intNumber = Val(TextboxNumber)
ReDim ArrayA(intNumber) As Double
Do
DoEvents
intRndNumber = Int(Rnd * (intNumber)) + 1
If ArrayA(intRndNumber) = 0 Then
ArrayA(intRndNumber) = intRndNumber
intCnt = intCnt + 1
ListboxNumber.AddItem intRndNumber
End If
Loop While intCnt < intNumber

For intA = 1 To intNumber
ArrayA(intA) = 0
Next
intNumber = 0
intRndNumber = 0
intCnt = 0
End Sub[/HTML]

ممنون
     ৻