Public Shared Function TryAddValue(Of T1 As Structure, T2 As Structure)_
      (ByRef value As T1, ByVal valuetoadd As T2) As Boolean
    Try
       Dim vl As Double = _
          CType(Convert.ChangeType(value, GetType(Double)), Double)
       Dim vla As Double = _
          CType(Convert.ChangeType(valuetoadd, GetType(Double)), Double)
       Dim result As Double = vl + vla
       value = CType(Convert.ChangeType(result, GetType(T1)), T1)
       Return True
    Catch ex As Exception
       Return False
    End Try
End Function