I'd focus on trying to move those fixed arrays out of the base structure.
certainly the ones the size with CMS_MAX_USERS.

I've no idea of the raw data.. But max users is set on a 'global' level.
I'd assume it was a 'per server' setting.

If you have 1 1000 user server.. and 100 10 user servers...
you'd need to allocate m all for max_users e.g. 1000

Set the user_size into the type, and make the arrays of variable length.
e.g.

Type MyType
rows As Integer
cols As Integer
prop() As String
End Type

Sub ff()
Dim aTypes(40) As MyType

With aTypes(0)
.rows = 10
.cols = 2
ReDim .prop(.rows, .cols)
.prop(0, 0) = 1
.prop(0, 1) = 2
'etc
End With
'etc etc

End Sub



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


(Neil Miller) wrote :

Thanks again keepITcool - that works great. At the risk of
"overstaying my welcome", I would appreciate you expanding on your
comment that you would not have defined a usertype in the way I
described. As I mentioned earlier in the initial Post, the INI files
get read and written using Get/Put and, to some extent, I am limited
by the datatypes allowed with these types of file.

Your thoughts would be appreciated if you have the time.

Thanks again.........Neil