[Taha Okla]

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

لجعل الأمر أكثر سلاسة  بكتابة الكود :
نجعل أن هناك :
Text1  يمثل فقط رقم بداية السلسلة.
Text2  يمثل فقط رقم نهاية السلسلة.
Text3  الاسم الذي تريد ربطه بالسلسلة الرقمة (يكتب الاسم دون أرقام فيه)
List1   القائمة التي ستطبع النتائج فيها..
Command1 الزر الذي سنضع الكود داخله .

الكود هو : 

كود :

Private Sub Command1_Click()
   List1.Clear
   For i = Val(Text1.Text) To Val(Text2.Text)
       List1.AddItem Text3.Text & i
   Next i
End Sub