Class Base
 
    Shared Function Load() As Object
        '...Code
        Return Nothing
    End Function
 
End Class
 
Class c1
    Inherits Base
 
End Class
 
Class Test
 
    Sub New()
        c1.Load()   '<---Funktioniert
 
        Dim tType As Type = GetType(c1)
        Dim tMethod As Reflection.MethodInfo = tType.GetMethod("Load")  _
          '<-Ergibt Nothing!?!? 
        tMethod = tType.BaseType.GetMethod("Load")  '<-Funktioniert 
 
    End Sub
 
End Class