'ソラリゼーション効果
For i = 0 To UBound(pix)
    '色を分解
    r = GetRed(pix(i))
    g = GetGreen(pix(i))
    b = GetBlue(pix(i))
    
    '128以上なら反転する
    If r >= 128 Then r = 255 - r
    If g >= 128 Then g = 255 - g
    If b >= 128 Then b = 255 - b
        
    '色をセット
    pix(i) = RGB(r, g, b)
Next i