数据溢出，帮忙解决下
Public Function getImgW(IMGPath, maxW, maxH)
Dim scale, scale1, scale2
Dim imgW1, imgH1
imgW1 = imgW(IMGPath)
imgH1 = imgH(IMGPath)
scale1 = imgW1 / maxW
scale2 = imgH1 / maxH
if scale1 > scale2 then
scale = scale1
else
scale = scale2
end if
getImgW = CINT(imgW1 / scale) '数据溢出了
End Function

[解决办法]
把cInt改成clng看看如何