ربط Listbox مع 5 Textbox

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

المشكل في هذه الحالة هو اختلاف الIndex للعنصر الموجود في الListBox بعد حذف عنصر منه

لكي تجعل الشكل أسهل للحل استعملة مصفوفة من الTextBox وحاول أن تقوم بتغيير الكود الذي يضيف بتخزين الIndex المضاف به العنصر داخل الList بالاستفادة من itemData للList

Private Sub Combo1_Click()
	On Error Resume Next
	List1.AddItem Combo1.Text
	A = List1.ListCount - 1
	Text1(A).Text = Combo1.List(A)
	List1.ItemData(A) = A
	Combo1.Text = ""
End Sub

بعدها عند الحذف يمكننا قراءة رقم الIndex من ItemData

Text1(List1.ItemData(List1.ListIndex)).Text = ""
List1.RemoveItem List1.ListIndex