Hi;

i search thru the forum but failed to find the solution that i want...
i am using vb6, my problem is i would like to declare a public array with 2 dimension, but an error message prompted and tell me that it is not allowed to do so, so after searching the net i using the LET and GET method but i still not really know how to use it, can someone help? below is my code:

************************************************** *******
in my class1:

Private GraphicArr(1 To 2, 50) As String

Public Property Get GArray(ShpType As Integer, ShpNo As Integer) As String
GArray = GraphicArr(ShpType, ShpNo)
End Property

Public Property Let GArray(ShpType As Integer, ShpNo As Integer, Value As String)
GraphicArr(ShpType, ShpNo) = Value
End Property
************************************************** ******

i would like to know in my main form, how can i set the value by calling the GArray and how do i call back to retrieve the value?

really need your help, please......

Thanks

What is the message of the error that you receive?
How are you pressing this class into service in your form? (Please show the code, I mean)

Actually i would like to declare this array as public because i will need this array in my class later, will first assign this array some value from my main form, then use the value in my class to do some processing. At first, i declared it as Public GraphicArr(1 to 2, 0 to 49) as String, then an error message prompted out:

Compile error:
Constans, Fixed-Length Strings, Arrays, User-Defined types and Declare statements not allowed as Public members of object modules.

do i miss out something when declaring my array? and can this public array be used in my class?

by the way, i had tried to do this in my form:
Dim GraphicArrayCls As Class1
Dim GraphicArr() As String

Set GraphicArrayCls = New Class1

ReDim GraphicArr(1 To 2, 1 To 20)
GraphicArr(1, 20) = GraphicArrayCls.GArray(1, 20)

For cnt = 1 to 20
  GraphicArr(1, cnt) = stringvalue
next
......

this code can be compile but it will stop when it reach
GraphicArr(1, 20) = GraphicArrayCls.GArray(1, 20)

 please help...