Public Class Point

    Private xValue As Integer
    Private yValue As Integer

    Public Sub New(ByVal x As Integer, ByVal y As Integer)
        xValue = x
        yValue = y
    End Sub
    Property x() As Integer
        Get
            Return xValue
        End Get
        Set(ByVal value As Integer)
            xValue = value
        End Set
    End Property

    Property y() As Integer
        Get
            Return yValue
        End Get
        Set(ByVal value As Integer)
            yValue = value
        End Set
    End Property

End Class