нужно расковырять файл формата BMP.
Прочитать каждую точку, получить ее значение. Где можно почитать о формате BMP (желательно по русски)?
может, есть контрол, с помощью которого можно сделать примерно следующее:
dim resW as integer
dim resH as integer
dim PixelData as long
bmpfile.resolution.width = resw
bmpfile.resolution.height = resh
for y = 1 to resH
for x = 1 to resW
pixeldata = bmpfile.GetPixelFromBmpFile (x,y)
'делаю что хочу с PixelData
next x
next y
Если нет, придётся ковырять...