مشکل با ارایه های عمومی

با سلام
در ماژول برنامه ارایه ای عمومی وجود دارد که اندازهش توسط یکی از توابع برنامه تعیین و مقدار دهی میشود
در حالی که برای تعریف ارایه باید اندازه اون رو قبل از فراخوانی تابع اعلام کنم
(چون در متغییر های عمومی تعریف شده)
چه پیشنهادی دارین که بتونم این کارو انجام بدم
همچنین هنگام مقدار دهی به ارایه(ar1=ar2 )خطای cant assign to array رو میگیره
ar1 ارایه عمومی
ar2 ارایه ای تو خود تابع

سورستون رو اینجا آپلود کنید.

این سورسش است روال اصلی start prosse است و ارایه ها به توابع xsort ysort فرستاده میشند و باید در ارایه های عمومی ذخیره بشوند
که خطا میگیره

خواهشا هر کدوم میدونید جواب بدین

با سلام
چرا از آرایه های پویا استفاده نکرده اید مثل

Private A() As Variant
Private Sub Command1_Click()
Static S As Byte
S = S + 1
ReDim Preserve A(S)
A(S) = S
End Sub

ارایه پویا میتونه public هم باشه

سلام

آرايه رو تو قسمت عمومي به شكل زير تعريف كنيد

Public Ar() as Variant

و قبل از فراخواني يك بار اندازه 0 بهش بدين

Redim Ar(0) As Variant

بعد تو تابع هم كه اندازه جديد بهش داده ميشه

 ReDim Preserve Ar(10) As Variant

با سلام
فقط در سطح ماژول که مسئله شما هم همینه !