Public Function Darken (Colour As Long, Amount As Single) As Long

    Dim r, G, B
    r = Colour And &HFF
    G = (Colour / &H100) And &HFF
    B = (Colour / &H10000) And &HFF
    
    r = (r * (1 - Amount))
    G = (G * (1 - Amount))
    B = (B * (1 - Amount))
    
    Darken = RGB(r, G, B)
End Function