Public Function LightenColourise (Colour As Long, ar, ag, ab) As Long

    Dim r, G, B
    r = Colour And &HFF
    G = (Colour / &H100) And &HFF
    B = (Colour / &H10000) And &HFF
    
    r = 255 - ((255 - r) * (1 - ar))
    G = 255 - ((255 - G) * (1 - ag))
    B = 255 - ((255 - B) * (1 - ab))
    
    LightenColourise = RGB(r, G, B)
End Function