' Set Background color based on color except for non-standard colors
Public Function SetBGColor(ByVal strColor As String) As String
' Test for NULL color
If String.IsNullOrEmpty(strColor) Then
Return "Kakhi"
Else
Select Case LCase(strColor)
Case "silver/black" : Return "Gray"
Case "multi" : Return "Gold"
Case Else : Return strColor
End Select
End If
End Function