Russell, I edited this post after originally creating it (with different content). Just wanted to make sure you saw this code that works for me.

** Pass rnWidth and rnHeight by reference

lparameters lcFileNameWPath,rnWidth,rnHeight

LOCAL loImage,lnWidth,lnHeight
loImage=LoadPicture(lcFileNameWPath)
rnWidth = round(loImage.width/26.458,0)
rnHeight = round(loImage.height/26.458,0)