/Source Code/ExperimentalProjection/AgnosticRectangle.vb

 1Public Class AgnosticRectangle
 2
 3    Public Property Left As Double = 0
 4
 5    Public Property Top As Double = 0
 6
 7    Public Property Width As Double = 0
 8
 9    Public Property Height As Double = 0
10
11    Public Sub New()
12
13    End Sub
14
15    Public Sub New(ByVal left As Double, _
16                   ByVal top As Double, _
17                   ByVal width As Double, _
18                   ByVal height As Double)
19
20        Me.Left = left
21        Me.Top = top
22        Me.Width = width
23        Me.Height = height
24
25    End Sub
26
27End Class