set classlib to vfpimage.fll

if IMGLoad(“c:\adoplus.bmp”) > UnknownImage
   *!* Interrogate the dimensions of our loaded image.
   lcPixWidth  = alltrim(str(IMGWidth()))
   lcPixHeight = alltrim(str(IMGHeight()))

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