اجعل المصفوفة غير محددة الطول

شكرا لك كود حلو

ولكن يمكن عمل ذلك بطرق آخرى مثال List(of T)

مثال بالكود

Dim i As New List(Of String)

Private Sub test()
	For j As Integer = 0 To 10
		i.Add("bla bla bla")
	Next
	i.TrimExcess()

	MsgBox(i(3))
End Sub

أو عن طريق arrayList

مثال بالكود

Dim i As New ArrayList

Private Sub test()
	For j As Integer = 0 To 10
		i.Add("bla bla bla")
	Next
	i.TrimToSize()

	MsgBox(i(3))
End Sub

مع أنني أفضل طريقة List لأنها تمكنك من التحكم بنوع البيانات المدخلة في المصفوفة بينما طريقة arrayList نوع بياناتها من النوع Object وبهذا تقوم بتخزين أي شئ يمرر لها

أشكرك أخ محمد لقد استفدت من ردك معلومة جديدة وجميلة

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