مشکل در معرفی آرایه در زیر برنامه

[Armin62]

من کد زیر رو که فراخوانی میکنم سیستم error میده

Public Sub mr(x3 As Integer, xx3 As Integer)

Dim Text(x3 To xx3) As Integer

End Sub


به نظرتون مشکل کجاست

[Armin62]

کسی نیست کمک کنه

[H_SH_VB]

باید آرایه متغیر تغریف کنی



Dim mytext() as integer
Private sub myx(x1 as integer,x2 as integer)
redim mytext(x1 to x2)
end sub