السلام عليكم بها نبدأ أي موضوع وأي نقاش أخي الكريم
جرب الحل التالي عله يفي بالغرض إن شاء العلي القدير
في موديول عادي أدرج الدالة المعرفة التالية
Function Reverse2DArray(ByVal arr)
Dim tmp, a As Long, b As Long, i As Long, j As Long
a = UBound(arr): b = LBound(arr)
For i = 0 To ((a - b) \ 2)
For j = LBound(arr, 2) To UBound(arr, 2)
tmp = arr(i + 1, j)
arr(i + 1, j) = arr(a, j)
arr(a, j) = tmp
Next j
a = a - 1
Next i
Reverse2DArray = arr
End Function
ثم في الحدث الخاص بعملية البحث قم بتعديل هذا الجزء ، حيث تقوم الدالة بعكس الصفوف الموجودة في المصفوفة لتظهر لك بالشكل الذي تريده في الليست بوكس
If ii Then
MyAr = Reverse2DArray(MyAr)
Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0
End If