Read pixel colors of an image

In VBA, how can I read the color value of each pixel of in an image? I found this solution in VB 6.0 but it doesn't apply directly in VBA.