Public Structure s_double
    Implements I_DOUBLE
    Public Property ValueD As Double Implements I_DOUBLE.ValueD
    Sub New(_Value As Double)
        ValueD = _Value
    End Sub
    Public Overrides Function ToString() As String
        Return ValueD.ToString
    End Function
End Structure

Public Interface I_DOUBLE
        Property ValueD As Double
End Interface