Convertir imagen RGB a escala de grises

[kayss]

He encontrado una solución pero es muy lenta (3, 4 seg en procesarla), a ver si me podéis decir otra o una modificación de esta más rápida:

double bn;
Color color, ColorBN;

for(int i=0; i<Imagen->Width; i++){
for (int j=0; j<Imagen->Height; j++){
color=Imagen->GetPixel(i,j);
bn=(double) ((color.R*30)+(color.G*59)+ (color.B*11));
ColorBN=Color::FromArgb(bn,bn,bn);
ImagenBN->SetPixel(i,j,ColorBN);
}
}


this->PictureBoxImagen->Image=this->ImagenBN;

Saludos, kayss