Sub Class_Globals
'Class Variables
Private mModule As Object
Private mEventName As String
....
Public Sub Initialize(pModule As Object, pEventName As String)
mModule = pModule
mEventName = pEventName
End Sub
Private Sub RaiseEventValueChanged(UserChanged As Boolean)
If SubExists(mModule, mEventName & "_ValueChanged") Then
CallSubDelayed3(mModule, mEventName & "_ValueChanged",seekValue, UserChanged)
End If
End Sub