>Could be shorter (and safer):

Public Function IsDerivedMethod(o As Object, methodName As String) As Boolean
>	Dim t As Type = o.[GetType]()
>	Dim minfo As MethodInfo = t.GetMethod(methodName, BindingFlags.Instance Or BindingFlags.[Public])
>
>	If minfo Is Nothing Then
>		Throw New Exception("Method name does not exist")
>	End If
>
>	While t.BaseType <> GetType([Object])
>		t = t.BaseType
>	End While
>	Return minfo.DeclaringType <> t
>End Function
>

Thanks, in my case, it gives this:

        ' If a method exists in a sub class. This is used when we negotiate with the Overrides method. Thus, the framework
        ' may know if the Overrides method exists in the sub class. This is used in the DataEntry class. So, if the method
        ' does not exist, we do not call it. And, if it exists, it allows us to validate, if necessary, before proceeding.
        ' expO1 Originator
        ' expC1 Name of the method
        Public Function IsMethodExistInSubClass(ByVal toOriginator As Object, ByVal tcMethod As String) As Boolean
            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)

            ' If the method does not exist
            If loMethodInfo Is Nothing Then
                Return False
            End If

            ' Loop until we have reached the base class
            While loType <> GetType([Object])
                loType = loType.BaseType
            End While

            ' If the method exists in the sub class
            If loMethodInfo.DeclaringType <> loType Then
                llExist = True
            End If

            Return llExist
        End Function

I still do not understand however why I cannot use the GetType("Object") and have to use the syntax GetType([Object]). What does this represent?