LOCAL loImage,lnWidth,lnHeight loImage=GetDimension('d:\iis\images\MyImage.gif') 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