Class MyLine
Inherits Line
Private price As Single
Public Sub New(x1 As Double, y1 As Double, x2 As Double, y2 As Double, thePrice As Single)
MyBase.New(x1, y1, x2, y2)
price = thePrice
End Sub
Public Sub New(another As MyLine)
MyBase.New(another)
price = another.price
End Sub
Public Overrides Function Clone() As Object
Return New MyLine(Me)
End Function
End Class