[faridfarid]

أريد كود توليد مجموعة أرقام  من 0 إلى 1000000 و إضافتها ليست بوكس و حفضها في ملف نصي 
قمت بالعمل بهذا الكود

PHP كود :

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
List1.Clear
End Sub
Private Sub Command4_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim x As Long
For x = Val(Text1.Text) To Val(Text2.Text)
List1.AddItem x
Label1.Caption = x
Label2.Caption = Val(100 * Val(List1.ListCount))
If List1.ListCount = Text2.Text Then
Timer1.Enabled = False
End If
Next x
End Sub 


لكن البرنامج يصبح ثقيل
هل من حل