Private Sub RaiseEventIfSubExists(EventName As String, params As List)
Dim FullSubName As String
FullSubName = mEventName & "_" & EventName
If xui.SubExists(mCallBack, FullSubName, params.Size) Then
Select params.Size
Case 0
CallSub(mCallBack, FullSubName)
Case 1
CallSub2(mCallBack, FullSubName, params.Get(0))
Case 2
CallSub3(mCallBack, FullSubName, params.Get(0), params.Get(1))
End Select
End If
End Sub