For 32bit color you can use
Function ImgReadMemory(MemblockNum, X, Y)
lWidth as Dword
lColor as Dword
lWidth = Memblock Dword(MemblockNum, 0)
MemoryPtr = ((Y-1) * lWidth + X - 1) * 4 + 12
lRed = Memblock Byte(MemblockNum, MemoryPtr + 2)
lGreen = Memblock Byte(MemblockNum, MemoryPtr + 1)
lBlue = Memblock Byte(MemblockNum, MemoryPtr)
lAlpha = Memblock Byte(MemblockNum, MemoryPtr + 3)
lColor = RGB(lRed, lGreen, lBlue)
EndFunction lColor
Load Image "test.bmp",1,1
Make Memblock From Image 1,1
PixelColor=ImgReadMemory(1,20,30)