Inherits List(Of iValue)

Inherits List(Of iValue(Of Object))  '???

TypeOf _item is iFormula

Array.Exists(_item.getType.GetInterfaces, Function(p) p.IsGenericType AndAlso _
  p.GetGenericTypeDefinition() = GetType(iFormula(Of )))

Dim tFormula As iFormula = DirectCast(_item, iFormula)
tFormula.Calc()

Dim tMethod As Reflection.MethodInfo = _item.GetType.GetMethod("Calc")
If tMethod IsNot Nothing Then tMethod.Invoke(_item, Nothing)

Interface iValue(Of T)
    Function Value() As T
End Interface
 
Interface iFormula(Of T)
    Inherits iValue(Of T)
    Sub Calc()
End Interface
 
Interface iReference(Of T)
    Inherits iValue(Of T)
End Interface
 
 
MustInherit Class Formula(Of T)
    Implements iFormula(Of T)
 
    Public Sub Calc() Implements iFormula(Of T).Calc
        'code
    End Sub
 
    Public Overridable Function Value() As T Implements iFormula(Of T).Value
        'Code
    End Function
End Class
 
Class Calc1
    Inherits Formula(Of Double)
End Class
 
Class Calc2
    Inherits Formula(Of Integer)
End Class
 
 
 
MustInherit Class Reference(Of T)
    Implements iReference(Of T)
 
    Public Overridable Function Value() As T Implements iReference(Of T).Value
        'Code
    End Function
End Class
 
Class Ref1
    Inherits Reference(Of Date)
End Class
 
Class Ref2
    Inherits Reference(Of String)
End Class
 
 
 
Class FormulaList
    Inherits List(Of iValue(Of Object))             '<<<---<<<---???
 
    Shadows Sub Add(_item As iValue(Of Object))
 
        If TypeOf _item Is iFormula(Of T) Then             '<<<---<<<---???
 
            Dim tFormula As iFormula(Of T) = DirectCast(_item, iFormula(Of T))  _
              '<<<---<<<---??
            tFormula.Calc()
 
        End If
 
    End Sub
 
End Class