[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

استخدم الكود التالي وطوره بحسب حاجتك :

كود :

Private Sub Command1_Click()
   Me.Caption = Int(Rnd * 100) + 30
End Sub

Private Sub Form_Load()
   Randomize
End Sub

مكان الرقم 30 ضع الرقم الأصغر  لمجالك.
ومكان الرقم 100 ضع الرقم الأعلى لمجالك.
وهذه هي طريقة توليد أرقام عشوائية غير متوقعة.
وهذه هي الطريقة المستخدمة في برامج السحب للمسابقات.
--
لكي لا تتكرر الأرقام عليك اضافة قاعدة بيانات تضيف إليها النتيجة كلما ضغطت على زر التنفيذ
فيقوم بتوليد رقم عشوائي ثم يبحث عنه فإن لم يجده في قاعدة البيانات عرضه 
وإن وجده أعطى أمر بحث من جديد عن نتيجة جديدة فيعرضها لك ثم يحفظها في قاعدة البيانات بنفس الوقت ك قيمة قد تم عرضها ..