The following lines were added (+) and removed (-):
* .BackColor = RGB(255, 0, 0)1. In HEX, BLUE is first, Green, then Red, the reverse of RGB (actually BGR) is the default VB method* .BackColor = cmd(0).BackColor = &HFF& ' Red / &H0000FF&* .BackColor = cmd(1).BackColor = &HFF00& ' Green / &H00FF00&* .BackColor = cmd(2).BackColor = &HFF0000 ' Blue / &HFF0000&* .BackColor = * .BackColor =2. Decimal RGB value* .BackColor = cmd(0).BackColor = RGB(255, 0, 0)* .BackColor = cmd(1).BackColor = RGB(0, 255, 0)* .BackColor = cmd(2).BackColor = RGB(0, 0, 255) 3. Using VB Color Constants cmd(0).BackColor = vbRed cmd(1).BackColor = vbGreen cmd(2).BackColor = vbBlue === Convert RGB Hex (like used in HTML) to VB Hex === Code Sample: Public Function h2v(wHex As String) As Long Dim strTmp As String wHex = Trim("" & wHex) If Len(wHex) = 7 Then If Left(wHex, 1) = "#" Then wHex = Right(wHex, 6) End If If Len(wHex) = 6 Then strTmp = "&H" & Right(wHex, 2) & Mid(wHex, 3, 2) & Left(wHex, 2) & "&" Else strTmp = "&H000000&" End If h2v = Val(strTmp) Debug.Print h2v End Function