Imports System
Module Test
Sub Main()
Dim p1 as New Point()
Dim p2 as New Point()
p2.Y = 100
p2.X = 100
Console.WriteLine(p1)
Console.WriteLine(p2)
End Sub
End Module
Class Point
Public X as Integer
Public Y as Integer
Public Overrides Function ToString() as String
Return("(" & X & "," & Y & ")")
End function
End Class
|