Public Class Point

    Private xValue As Integer
    Private yValue As Integer

    Sub New(ByVal xFirst As Integer, ByVal yFirst As Integer)
        Me.x = xFirst
        Me.y = yFirst
    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