数据溢出，帮忙解决下
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看看如何