/Source Code/ExperimentalProjection/AgnosticColour.vb

 1Public Class AgnosticColour
 2
 3    Public Property Red As Byte = 0
 4
 5    Public Property Green As Byte = 0
 6
 7    Public Property Blue As Byte = 0
 8
 9    Public Sub New()
10
11    End Sub
12
13    Public Sub New(ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte)
14        Me.Red = red
15        Me.Green = green
16        Me.Blue = blue
17    End Sub
18
19End Class