Imports System
Namespace shapes
Class Square
Inherits Shape
Private l As Location = New Location()
Public Sub New(ByVal x As Double, ByVal y As Double, ByVal side As Double)
l.SetX(x)
l.SetY(y)
l.SetSide(side)
End Sub
Public Sub Move(ByVal x As Double, ByVal y As Double)
l.SetX(x)
l.SetY(y)
End Sub
Public Sub Scale(ByVal factor As Integer)
l.SetSide(l.GetSide() * factor)
End Sub
Public Function ToString() As String
Return "Corner (" & l.GetX() / 2 & "), side " + l.GetSide()
End Function
End Class
End Namespace