Public Class clselemento

    Private _Id As Integer
    Private _X1 As Double
    Private _Y1 As Double
    Private _X2 As Double
    Private _Y2 As Double

    Public Sub New()
        'elemento vuoto
        _Id = 0
        _X1 = 0
        _Y1 = 0
        _X2 = 0
        _Y2 = 0
    End Sub

    Public Sub New(ByVal Id As Integer, ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double)
        'elemento pieno
        Me._Id = Id
        Me._X1 = X1
        Me._Y1 = Y1
        Me._X2 = X2
        Me._Y2 = Y2
    End Sub

    Public Property Id As Integer
        Get
            Return _Id
        End Get
        Set(value As Integer)
            _Id = value
        End Set
    End Property

    Public Property X1 As Double
        Get
            Return _X1
        End Get
        Set(value As Double)
            _X1 = value
        End Set
    End Property

    Public Property Y1 As Double
        Get
            Return _Y1
        End Get
        Set(value As Double)
            _Y1 = value
        End Set
    End Property

    Public Property X2 As Double
        Get
            Return _X2
        End Get
        Set(value As Double)
            _X2 = value
        End Set
    End Property