'*** Caller event within the object
Private Sub panel1_Click
'raise the specify event in the caller module
If SubExists(mModule, mEventName & "_Click") Then
CallSubDelayed2(mModule, mEventName & "_Click", panel1)
End If
End Sub
'*** App Main module
Sub MyEventName_Click (pnl As Panel)
if pnl.name = "panel1" then ...
end sub