参考
http://www.foxtable.com/webhelp/scr/1410.htm
获取图片宽高,这样写
dim img as image = getimage("d:\test.jpg")msgbox(img.width & " " & img.height)