---
title: RGB Lighting
slug: rgb-lighting
description: This document contains a Visual Basic code for effortlessly setting LED colors using 10 different numeric values. By utilizing a Select Case statement, the code effectively determines the appropriate RGB values for each color. Additionally, the code alter
docTags: 
createdAt: 2019-11-29T06:03:43.000Z
---



```vb
	'->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->
	'-> Color LEDs - 10 Colors
	'->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->

	Dim red, orange, amber, yellow, darkgreen, green, blue, darkblue, purple, white

	red = 10
	orange = 9
	amber = 8
	yellow = 7
	darkgreen = 6
	green = 5
	blue = 4
	darkblue = 3
	purple = 2
	white = 1

	Sub SetLightColor(n, col, stat)
		Select Case col
			Case red
				n.color = RGB(18, 0, 0)
				n.colorfull = RGB(255, 0, 0)
			Case orange
				n.color = RGB(18, 3, 0)
				n.colorfull = RGB(255, 64, 0)
			Case amber
				n.color = RGB(193, 49, 0)
				n.colorfull = RGB(255, 153, 0)
			Case yellow
				n.color = RGB(18, 18, 0)
				n.colorfull = RGB(255, 255, 0)
			Case darkgreen
				n.color = RGB(0, 8, 0)
				n.colorfull = RGB(0, 64, 0)
			Case green
				n.color = RGB(0, 18, 0)
				n.colorfull = RGB(0, 255, 0)
			Case blue
				n.color = RGB(0, 18, 18)
				n.colorfull = RGB(0, 255, 255)
			Case darkblue
				n.color = RGB(0, 8, 8)
				n.colorfull = RGB(0, 64, 64)
			Case purple
				n.color = RGB(128, 0, 128)
				n.colorfull = RGB(255, 0, 255)
			Case white
				n.color = RGB(255, 252, 224)
				n.colorfull = RGB(193, 91, 0)
			Case white
				n.color = RGB(255, 252, 224)
				n.colorfull = RGB(193, 91, 0)
		End Select
		If stat <> -1 Then
			n.State = 0
			n.State = stat
		End If
	End Sub
```