- Code: Select all
Public Class Point
Dim _x As Integer
Dim _y As Integer
Public Property X() As Integer
Get
Return _x
End Get
Set(ByVal value As Integer)
_x = value
End Set
End Property
Public Property Y() As Integer
Get
Return _y
End Get
Set(ByVal value As Integer)
_y = value
End Set
End Property
Public Sub New(ByVal x As Integer, ByVal y As Integer)
Me.X = x
Me.Y = y
End Sub
Public Sub New()
Me.X = 0
Me.Y = 0
End Sub
End Class
Its nothing special, but I figured I'd save everyone the time.