Module Module1
    Sub Main()
        Dim tPoint As Point = New Point(100, 200)
        Dim tPointString As String = tPoint.ToString()
        Console.WriteLine(tPointString)
        Console.WriteLine(tPoint)
        Dim tDistance As Double = tPoint.Distance()
        Console.WriteLine(tDistance)
        Dim tAnotherPoint As Point = tPoint
        Console.WriteLine(tAnotherPoint)
        Console.WriteLine("Equals: " & (tPoint.Equals(tAnotherPoint)))
        tAnotherPoint.X = 42
        Console.WriteLine(tPoint.X)
        Dim tClonePoint As Point = New Point(100, 200)
        Console.WriteLine("Equals: " & (tPoint.Equals(tClonePoint)))
        tClonePoint.X = 27
        Console.WriteLine(tPoint.X)
    End Sub
End Module