CodeItBetter Programming Another VB Programming Blog

'Graphics - How to Mix colors
Option Explicit
 
Private Function MixColors(ParamArray lMix() As Variant) As Long
    Dim lR As Long, lG As Long, lB As Long
    Dim lNewR As Long, lNewG As Long, lNewB As Long
    Dim lColors() As Long
    Dim I As Integer
 
    ReDim lColors(UBound(lMix) + 1)
 
    For I = 0 To UBound(lMix)
        lColors(I) = lMix(I)
    Next I
 
    For I = 0 To UBound(lColors)
        Debug.Print lColors(I)
        lR = lColors(I) And 255
        lG = (lColors(I) And 65280) / 256
        lB = (lColors(I) And 16711680) / 65536
        lNewR = lNewR + lR
        lNewG = lNewG + lG
        lNewB = lNewB + lB
    Next I
 
    MixColors = RGB(lNewR / UBound(lColors) + 1, lNewG / UBound(lColors) + 1, _
        lNewB / UBound(lColors) + 1)
End Function
 
'How to use this function:
'Me.BackColor = MixColors(vbRed, vbYellow) 'produces an orange color