Imports System.Numerics
Module Example
Public Sub Main()
Dim number1 As New Complex(8.3, 17.5)
Dim numbers() As Complex = { New Complex(1.4, 6.3),
New Complex(3.1, -2.1) }
For Each number2 In numbers
Console.WriteLine("{0} x {1} = {2}", number1, number2,
Complex.Multiply(number1, number2))
Next
End Sub
End Module