class module

[axion_sa]

declare the class as withevents i.e:

Dim WithEvents objClass As ClassName