Class & Timer

[Niko]

Добрый день!
задача такая.
есть некий класс Class1
у которого есть свойства A и B as long
Class1.A - промежуток времени
Class1.B - величина которая увеличивается на 1 за промежуток времени Class1.A
у меня есть такой массив:
dim C1() as Class1
кол-во элементов я зарание незнаю, у всех элементов значение С1().A разное
Можно ли реализовать данную задачу только процедурами класса/модуля, не трогая основной программный код?

[GSerg]

Приведённый в вопросе текст не содержит описания вопроса.

[Niko]

Dim C1() As Class1

Private Sub Command1_Click()
for i=1 to 10
ReDim Preserve C1(i)
Set C1(i) = New Class1
C1(i).a=i
C1(i).start 'начинаем отсчет
End If
End Sub

Private Sub Command2_Click()
For i = 1 To 10
List1.AddItem C(i).B
Next i
End Sub

при клике на Command2 заполнится List2 значениями C1(n).B
значение С1(n).B начинает увеличиваться на 1 с момента выполнения процедуры start каждые C1(n).T секунд.
Вопрос в том как это организовать.

[CodeName33]

Niko, ну либо API Timer использовать, но модуль вроде как нужен, либо создавать Таймер из класса через Controls.Add, но для этого ещё и форма нужна, или использовать Forms(0)...

[Niko]

спасибо.
вроде будет проще запоминать время когда была выполнена C1(n).start и при вызове C1(n).B вычилсять это значение в зависимости от текущего времени и C1(n).T