/Source Code/ExperimentalProjection/AgnosticRectangle.vb
Visual Basic | 27 lines | 17 code | 10 blank | 0 comment | 0 complexity | a08c9a7d4c6619b4f7990f3a0cef22d0 MD5 | raw file
- Public Class AgnosticRectangle
-
- Public Property Left As Double = 0
-
- Public Property Top As Double = 0
-
- Public Property Width As Double = 0
-
- Public Property Height As Double = 0
-
- Public Sub New()
-
- End Sub
-
- Public Sub New(ByVal left As Double, _
- ByVal top As Double, _
- ByVal width As Double, _
- ByVal height As Double)
-
- Me.Left = left
- Me.Top = top
- Me.Width = width
- Me.Height = height
-
- End Sub
-
- End Class