مصفوفة ديناميكية

أخى ناصر..

يمكنك عمل ذلك بالطريقة الآتية:

Dim MyArray() As String
Dim lArrayCount As Long
Private Sub command1_click()
ReDim Preserve MyArray(lArrayCount)
Text1 = "Text" & lArrayCount
MyArray(lArrayCount) = Text1
lArrayCount = UBound(MyArray) + 1
End Sub

Private Sub Command2_Click()
	Dim lCounter As Long
	For lCounter = 0 To UBound(MyArray)
		List1.AddItem MyArray(lCounter)
	Next
End Sub

اشكرك يا اخي على المساعدة

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

ناصر المصاروة