لم أجد شيئا مناسباً أضعه في العنوان

أخي الكريم ممكن تقول لنا مالفكرة التي تدور في رأسك لكي نساعدك؟؟

يمكنك تنفيذ ذالك بوضعهم على صورة مصفوفة من صناديق النص

1- ارسم صندوق نص

2- اعمل كليك يمين عليه واختار copy

3- كليك يمين مرة اخرى و اختر paste ثم اختر yes من الرسالة التى ستظهر

وسيكون الكود :

x = Int(Rnd * 10)
Text1.Item(x).Text = "your text"

الافضل تعملهم مصفوفة لكن يمكنك استخدام ايضا

Me.Controls("ABC" & x).Text = "1234"

ويجب الانتباه ان الارقام العشوائية يمكن ان تتكرر اكثر من مرة

شكرا الكود شغال لكن هل من الممكن أن يقول أحد بشرحه ؟

اخي كان يمكنك وضع العنوان باي اسم : rnd او الارقام العشوائية او اي شيء

وذلك لتجنب مخالفة القوانين :)