Как объявить массив Public?

[Valeron]

Возник следующий вопрос.
Как сделать конструкцию Dim UserName(1 To 100) As String, которая объявляется в General/Declarations, доступной из другой формы программы? На объявление как Public UserName(1 To 100) As String - ругается, говорит массивы нельзя объявлять общими.
Как поступить?

[Dmitriy2003]

Мож такой вариант подойдет?
------------------------------------------------
1. Class Users
2. Private aUserName(1 to 100) as string
2. Public/Friend Property Get/Let UserName ( i as integer/long ) as string

sample:

Public property Get UserName ( i as integer ) as string
'
if i>=0 and i<101 then
UserName = aUserName(i)
end if
'
end property
------------------------------------------------
верификацию полностью лень описывать.
(чето егодня маразм в голове)

[Dmitriy2003]

Да я малость перестарался ^

Standart module -> Public UserName (1 to 100) as string

[v-adix]

да лучше класс сделать!
я например делал класс, получалось примерно так:

dim Users as new clsUserData
msgbox users.user(i).username & users.user(i).password & users.user(i).status и т.д. Лёгкий и красивый код, причём затраты времени и сил минимальны. Такой класс сделать несложно. Не надо париться с массивами! Можно в класс ещё включить чтото типа LoadUsers SaveUser LogOn LogOff CheckPassword и т.д.