Public Structure extRectangle
   Private wX1 As Integer
   Private wX2 As Integer
   Private wY1 As Integer
   Private wY2 As Integer
 
   Public Sub New(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As _
     Integer, _
   ByVal y2 As Integer)
      wX1 = x1
      wY1 = y1
      wX2 = x2
      wY2 = y2
   End Sub
 
   Public Sub New(ByVal p1 As Point, ByVal p2 As Point)
      wX1 = p1.X
      wY1 = p1.Y
      wX2 = p2.X
      wY2 = p2.Y
   End Sub
 
   Public Property X1() As Integer
      Get
         Return wX1
      End Get
      Set(ByVal Value As Integer)
         wX1 = Value
      End Set
   End Property
 
   Public Property X2() As Integer
      Get
         Return wX2
      End Get
      Set(ByVal Value As Integer)
         wX2 = Value
      End Set
   End Property
 
   Public Property Y1() As Integer
      Get
         Return wY1
      End Get
      Set(ByVal Value As Integer)
         wY1 = Value
      End Set
   End Property
 
   Public Property Y2() As Integer
      Get
         Return wY2
      End Get
      Set(ByVal Value As Integer)
         wY2 = Value
      End Set
   End Property
 
   Public ReadOnly Property MitteX() As Integer
      Get
         Return wX1 + (wX2 - wX1) / 2
      End Get
   End Property
End Structure

Ralf