
А как static property делать в классе?

У мну не получается, или вообще нельзя?

- Код: Выделить всё
'Private Static lID As Long 'Здесь ругань :о/ (ожидается тока процедуры, функции, проперти)
Public Sub Class_Initialize()
lID = lID + 1
End Sub
Public Static Property Get ID()
ID = lID
End Property