Public Structure extRectangle
        Dim wX1 As Integer
        Dim wX2 As Integer
 
 
        Public Property X1() As Integer
            Get
                X1 = wX1
            End Get
            Set(ByVal Value As Integer)
                wX1 = Value
            End Set
        End Property
 
        Public Property X2() As Integer
            Get
                X2 = wX2
            End Get
            Set(ByVal Value As Integer)
                wX2 = Value
            End Set
        End Property
 
        Public ReadOnly Property MitteX() As Integer
            Get
                MitteX = wX1 + (wX2 - wX1) / 2
            End Get
        End Property
 
 
end Structure

 Dim x As Rectangle = New Rectangle(10, 20, 30, 40)

 Dim x As extRectangle= New extRectangle(10, 20, 30, 40)