Public Sub SelBGColorDayOfWeek(Digit As Int) As Int
Dim xBgColor As Int
Select Digit
Case 0
xBgColor=xui.Color_Red
Case 1
xBgColor=xui.Color_RGB(241,241,0)
Case 2
xBgColor=xui.Color_RGB(241,0,180)
Case 3
xBgColor=xui.Color_RGB(80,176,0)
Case 4
xBgColor=xui.Color_RGB(252,135,51)
Case 5
xBgColor=xui.Color_RGB(0,180,241)
Case 6
xBgColor=xui.Color_RGB(168,0,241)
End Select
Return xBgColor
End Sub