For some isolated cases, the image control doesn't return the proper dimensions. This is the function that I am using:

loImage=GetDimension(lcFile+'.jpg')
lnWidth=loImage.Width
lnHeight=loImage.Height

* Return an object to get the image dimensions
* expC1 Full path of the file
FUNCTION GetDimension
PARAMETER tcFile
loImage=CREATEOBJECT('Image')
loImage.Picture=tcFile
RETURN loImage

Usually, this is working fine. But, I have found that sometimes, it returns some coordinates which are way bigger than the actual image size. Anyone found a way to make that bullet proof?