Public Structure Point
    Private iX As Integer
    Private iY As Integer
    Public Sub New(ByVal pX As Integer, ByVal pY As Integer)
        iX = pX
        iY = pY
    End Sub
    Public Property X() As Integer
        Get
            Return iX
        End Get
        Set(ByVal Value As Integer)
            iX = Value
        End Set
    End Property
    Public Function Distance() As Double
        Return Math.Sqrt(iX * iX + iY * iY)
    End Function
    Public Overrides Function ToString() As String
        Return iX & ":" & iY
    End Function
End Structure