نياز به راهنمايي در حل برنامه توليد عدد

بسمه تعالي
با سلام و عرض تبريك به مناسبت عيد سعيد فطر.
---------------------------------------------------------
من مي خواهم برنامه اي بنويسم كه 6 عدد تصادفي را توليد كند و آنها را درون 6 ليبل قرار دهد - به طوري كه ارقام درون ليبل ها به هيچ وجه با هم برابر نباشند - توجه داشته باشيد دستور Randomize Timer اين كار را به درستي انجام نمي دهد - در ضمن من الگوريتمي مي خواهم كه بتواند مثلاً 100 عدد توليد كند به طوري كه هيچيك با هم برابر نباشند.
من زياد روي اين برنامه كار كرده ام اما نتيجه نگرفته ام.
اگر كسي بتواند اين برنامه را بنويسد از نظر من يك برنامه نويس حرفه اي است.
با تشكر از دوستان. :)

خب يه شرط بزار كه اگر دو تا از ليبلها با هم برابر بودند دوباره يه عدد رندم توليد كنه
يا اينكه اين شرط رو توي تايمر براي تمام ليبل ها بزاري

با سلام
جواب شما صحيح است.
از جواب شما متشكرم
اما اگر 1000 تا ليبل داشتيم چي؟؟؟

حالا تو گفتي 6 تا منم اينو پيشنهاد كردم.واسه نامحدود بودنش هم يه فكري مي كنم

بسمه تعالي
خوشبختانه جواب سوالم را يافتم اين الگوريتم مي تواند 1000 عدد يا بيشتر توليد كند كه با هم مساوي نباشند به شرطي كه حافظه كامپيوتر و پردازشگر بتواند اين كار را بكند.
از دوستم كه جواب دادند صميمانه سپاسگذارم.

[HTML]Option Base 1
Option Explicit
Dim intI, intA, intB, intCNT, intNum, intNumber As Integer
Dim A() As Integer

Private Sub Form_click()
intNumber = InputBox("Enter Number")
ReDim A(intNumber) As Integer
UP:
intI = 0
intNum = 0
intA = 0
intB = 0
intCNT = 0
'Generate Numbers
For intI = 1 To intNumber
Randomize Timer
A(intI) = (Rnd * (intNumber - 1)) + 1
Next
'Equal Numbers
intNum = 1
For intA = 1 To intNumber
For intB = 1 To (intNumber - intNum)
If A(intA) = A(intB + intNum) Then intCNT = intCNT + 1
Next
intNum = intNum + 1
If intCNT = 0 Then
lblShow(intA).Caption = A(intA)
Else
GoTo UP
End If
Next
End Sub[/HTML]