Перевести маленький кусочек с Pascal на VB

[qwertyhp]

Приведённый ниже код преобразует цветную картинку в чёрно-белую. Но он на Pascal.
Если кому не трудно - переведите его на 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;


Спасибо.

[Хакер]

А тебе не кажется, что это слишком примитивно для перевода цветной картинки в черно-белую?
А тебе не кажется, что с вопросами, оформленными таким образом, тебе в раздел «Работа»?

[Mikle]

qwertyhp
Смотри в этой теме:
viewtopic.php?f=28&t=38123
Фильтр "Линогравюра"
Там есть корректная ф-ция перевода - ARGBtoGray.

[qwertyhp]

2 Mikle: огромное спасибо, Ваш код решает мою проблему, сейчас разбираюсь в нём по существу.
2 Хакер: Вам тоже спасибо. Вы укрепили меня в намерении заняться изучением Pascal/Delphi. А то ходют тут всякие, хочут на халяву 7 строчек коду (+ ещё один "end;", которого не было в оригинале) перевести (на самом деле - только 4-ю). Низзззяяяяяя!
"А тебе не кажется ... А тебе не кажется ..." : так и просится на музыку в духе 60-70-х.
Здорово, мне нравится.
Спасибо русскому языку за любезно предоставленные буковки.