كيف يمكن التعامل مع ناتج الامر print

ما كتبته على الفورم لا يمكن الاستفادة منه

و لكن يمكن قبل امر الطباعة ان تضع الناتج في مصفوفة

و ذلك بالصيغة

dim x(10)

و يمكن مناداة اي عنصر بوضع رقمه بدل العدد 10

انشئ فورم به زر و اضف اليه الكود التالي

Dim y As Integer
Dim x(5) As Integer
Private Sub Command1_Click()
For i = 1 To 10
If i / 2 = Int(i / 2) Then
x(y) = i
y = y + 1
Print i
End If
Next
End Sub

Private Sub Form_Load()
y = 0
End Sub

هنا x(0)=2 x(1)=4 وهكذا

شكرا جزيلا و جزاكم الله خيرا