Sub Class_Globals
Dim mcallback As Object
Dim mevent As String
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(callback As Object, event As String)
mcallback = callback
mevent = event
End Sub
Public Sub RaiseEvent
CallSub(mcallback, mevent)
End Sub