'グレースケールにする
For i = 0 To UBound(pix)
    '色を分解
    r = GetRed(pix(i))
    g = GetGreen(pix(i))
    b = GetBlue(pix(i))
    
    '色を変換
    col = r * 0.299 + g * 0.587 + b * 0.114
    
    '色をセット
    pix(i) = RGB(col, col, col)
Next i