/Source Code/ExperimentalProjection/AgnosticColour.vb

# · Visual Basic · 19 lines · 12 code · 7 blank · 0 comment · 0 complexity · c5560502d2483020df27e517eae728d5 MD5 · raw file 

    

  1. Public Class AgnosticColour

    2. 

  2. 

    3. 

  3.     Public Property Red As Byte = 0

    4. 

  4. 

    5. 

  5.     Public Property Green As Byte = 0

    6. 

  6. 

    7. 

  7.     Public Property Blue As Byte = 0

    8. 

  8. 

    9. 

  9.     Public Sub New()

    10. 

  10. 

    11. 

  11.     End Sub

    12. 

  12. 

    13. 

  13.     Public Sub New(ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte)

    14. 

  14.         Me.Red = red

    15. 

  15.         Me.Green = green

    16. 

  16.         Me.Blue = blue

    17. 

  17.     End Sub

    18. 

  18. 

    19. 

  19. End Class
    20.