Visual Basic - Sumar dos "estructuras"

Public Shared Operator+(a As Imaginario, b As Imaginario) As Imaginario

	Return New Imaginario(...)

End Operator

Module Module1

    Sub Main()

        Dim i1 As New Imaginario(2, 5)

        Dim i2 As New Imaginario(3, -1)

        Console.WriteLine(i1 + i2)

        Console.ReadKey()

    End Sub

    Structure Imaginario

        Dim real As Integer

        Dim imaginario As Integer

        Sub New(r As Integer, i As Integer)

            real = r

            imaginario = i

        End Sub

        Public Shared Operator +(a As Imaginario, b As Imaginario) As Imaginario

            Return New Imaginario(a.real + b.real, a.imaginario + b.imaginario)

        End Operator

        Public Overrides Function ToString() As String

            Return String.Format("({0},{1}i)", real, imaginario)

        End Function

    End Structure

End Module