' If a method exists in a sub class
        ' expO1 Originator
        ' expC1 Name of the method
        Public Function IsMethodExistInSubClass(ByVal toOriginator As Object, ByVal tcMethod As String) As Boolean
            Dim lcBaseClass As String = ""
            Dim llExist As Boolean = False
            Dim loType As Type = Nothing
            Dim loMethodInfo As System.Reflection.MethodInfo = Nothing

            ' Get a reference to the originator type
            loType = toOriginator.GetType()

            ' Get a reference to the method
            loMethodInfo = loType.GetMethod(tcMethod, System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.Public)

            ' Get the base class name
            lcBaseClass = loType.BaseType.Name

            ' If the method exists in the client class
            If loMethodInfo.DeclaringType.Name <> lcBaseClass Then
                llExist = True
            End If

            Return llExist
        End Function