Если кому не трудно - переведите его на VB, пожалуйста.
- Код: Выделить всё
for Y := 0 to Height-1 do
for X := 0 to Width-1 do begin
Color := Pixel[X,Y];
Color := (Red(Color)+Green(Color)+Blue(Color)) div 3;
if Color > 100 then Pixel[X,Y] := White
else Pixel[X,Y] := Black;
end;
Спасибо.