Imports System.Numerics
Module Example
Public Sub Main()
Dim values() As Complex = { Complex.One, New Complex(-3.3, -1.8) }
For Each c1 In values
Console.WriteLine("{0} --> {1}", c1, Complex.Negate(c1))
Next
End Sub
End Module