You can use my image compression and conversion library in the files section, the following code should do the trick.

LOCAL lcPixWidth
LOCAL lcPixHeight

set library to vfpimage.fll ADDITIVE

if IMGLoad(“c:\adoplus.bmp”) > 0
   lcPixWidth  = alltrim(str(IMGWidth()))
   lcPixHeight = alltrim(str(IMGHeight()))

   ? “Image Dimensions: “ + lcPixWidth + “ x “ + lcPixHeight + “ pixels”
endif