سوال درباره لیست باکس در vb

[msbj22]

سلام دوستان خسته نباشید
یه سوال داشتم
یه کد دارم که طبق یه فرمول اعداد تصادفی تولید میکنه
و هر عدد تولید شده رو توی یه listbox اضافه میکنه
میخوام تولید اعداد رو تا زمانی ادامه بده عدد تولید شده مساوی یکی از اعدادی باشه که قبلا ساخته شده و در لیست باکس هست
چطوری میتونم عددی رو با اعداد توی لیست باکس مقایسه کنم؟
ممنون میشم

[meys34]

Private Sub Command1_Click()
Dim r As Integer

r = Int(Rnd * 100)

Dim i As Integer
For i = 1 To List1.ListCount
If r = List1.List(i - 1) Then Stop: r = -1: Exit For
Next

If r <> -1 Then List1.AddItem r
End Sub

[msbj22]

ممنونم از پاسخگوییتون
متوجه شدم فقط يه سوال ديگه داشتم
يه حلقه دارم که عدد تولید میکنه
يه حلقه ديگه هم هست که همونطور که گفتید بررسی میکنه
اگه عدد تکراری بود از حلقه بررسی خارج ميشه اما از حلقه تولید عدد خارج نميشه
چطوري باید از هر دو حلقه خارج بشم و متوقف بشه؟

[roo.row]

با سلام
توی کد بالا یه متغیر تعریف کنید بعد تو شرط برابری مقدارش رو 1 کنید
اگه حلقتون وایل یا فور بود قبل از کد تولید یه شرط بزارید که اگه ایکس 1 بود exit sub کنه
اگرم تایمره enabled رو فالس کنید
با تشکر