Imports System.Numerics
Module Example
Public Sub Main()
Dim values() As Complex = { New Complex(2.5, 1.5),
New Complex(-2.5, -1.5) }
For Each value As Complex In values
Console.WriteLine("Tan(Atan({0})) = {1}",
value, Complex.Tan(Complex.Atan(value)))
Next
End Sub
End Module