)
        cmdColour.BackColor = QBColor(Index)
        For i = 0 To 15
            If i = Index Then
                intColour = i
                picC(i).Visible = False
            ElseIf i = 0 And bolBlackOn = False Then
                picC(0).Visible = False
            ElseIf i = 15 And bolWhiteOn = False Then
                picC(15).Visible = False
            Else
                picC(i).Visible = True
            End If
        Next i
    End Sub
    
    Function colActivate(intCol As Byte, bolOn As Boolean)
        Select Case intCol[b