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

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

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

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

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

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