فقط غير اتجاه الفورم من اليمين الى اليسار شاهد الصوره

السلام عليكم بها نبدأ أي موضوع وأي نقاش أخي الكريم
جرب الحل التالي عله يفي بالغرض إن شاء العلي القدير

في موديول عادي أدرج الدالة المعرفة التالية

Function Reverse2DArray(ByVal arr)<br />
&nbsp; &nbsp; Dim tmp, a As Long, b As Long, i As Long, j As Long<br />
&nbsp; &nbsp; a = UBound(arr): b = LBound(arr)<br />
&nbsp; &nbsp; For i = 0 To ((a - b) \ 2)<br />
&nbsp; &nbsp; &nbsp; &nbsp; For j = LBound(arr, 2) To UBound(arr, 2)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; tmp = arr(i + 1, j)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; arr(i + 1, j) = arr(a, j)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; arr(a, j) = tmp<br />
&nbsp; &nbsp; &nbsp; &nbsp; Next j<br />
&nbsp; &nbsp; &nbsp; &nbsp; a = a - 1<br />
&nbsp; &nbsp; Next i<br />
&nbsp; &nbsp; Reverse2DArray = arr<br />
End Function<br />
<br />

ثم في الحدث الخاص بعملية البحث قم بتعديل هذا الجزء ، حيث تقوم الدالة بعكس الصفوف الموجودة في المصفوفة لتظهر لك بالشكل الذي تريده في الليست بوكس

If ii Then<br />
&nbsp; &nbsp; MyAr = Reverse2DArray(MyAr)<br />
&nbsp; &nbsp; Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0<br />
End If<br />
<br />

اشكرك استاذ ياسر

بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير
والحمد لله الذي بنعمته تتم الصالحات.