Public Sub setEnabled (b As Boolean)
mBase.enabled = b 'Deal with enabling / disabling the control
If xui.SubExists(mCallBack, mEventName & "_EnabledStateChanged", 1) Then
CallSubDelayed2(mCallBack, mEventName & "_EnableStateChanged", b)
End If
End Sub