Public Class Complex
   Public Dim a As Double
   Public Dim b As Double
   Sub print()
      System.Console.Write(a & " + " & b & "i ")
   End Sub
   Sub add(x As Complex)
      Me.a = Me.a + x.a
      Me.b = Me.b + x.b
   End Sub
End Class

Public Module MyComplexClass
   Sub Main()
      Dim x as New Complex
      Dim y as New Complex
      Dim z as New Complex

      System.Console.WriteLine("Complex number program, by Kevin Jones, DCC, 062")
      x.a = 5
      x.b = 3
      y.a = 2
      y.b = -1
      System.Console.WriteLine("printing x...")
      x.print()
      System.Console.WriteLine("printing y...")
      y.print()
      System.Console.WriteLine("adding y to x...")      
      x.add(y)
      System.Console.WriteLine("printing x...")
      x.print()
      System.Console.WriteLine("printing y...")
      y.print()
      System.Console.WriteLine("bye...")
   End Sub
End Module