Public Widening Operator CType(ByVal int As Integer) As myDouble

    Dim re As New myDouble

    re.Value = int

    Return re

End Operator