المساعدة في الرقم العشوائي

أين الرد يا أحبائي

جرب هذا الكود اخي عباس رجب وتحقق من الأخطاء فقد كتبه مباشرة :

dim i,randNum as integer
dim str as,nStr String

For i = 0 to List1.ListCount-1
     Str = Str & List1.List(i)
Next i

For i = 0 to 3
    RandNum =((List1.ListCount-1) * Rnd + 1)
    nStr = nStr &  Mid(str,RandNum,1)
Next i

Msgbox nStr

بالتوفيق B)

نعم بالفعل هذا هو الحل أخي فواز الشمري

ولقد أوفيت بالحل

ولم يكن هناك سوى خطأ بسيط في تعريف المتغيرات نتيجة للسرعة في الكتابة

والف شكر مرة أخرى