pb 8.0 最大化最小化出错_PB

pb 8.0 最大化最小化报错

long ii_width,ii_height//全局变量
open事件
ii_width = This.Width
ii_height = This.Height

resize事件代码
Int li_value
DragObject lw_obj
For li_value = 1 To UpperBound(This.Control[])
         lw_obj = control[li_value]
if lw_obj=dw_1 or  lw_obj=dw_3 then
         lw_obj.x = lw_obj.x * (NewWidth / ii_width)
         lw_obj.width = lw_obj.width * (NewWidth / ii_width)
         lw_obj.y = lw_obj.y * (NewHeight / ii_height)
         lw_obj.height = lw_obj.height * (NewHeight / ii_height)
end if
Next

ii_width = NewWidth

ii_height = NewHeight

在一个窗口最大最小切换是没的问题     但是吧这个窗口放桌面上去操作其他窗口  等一会儿在打开这个窗口直接就保存  resize 第6行有错   这是为啥呢？
------解决方案--------------------
看代码没看出问题，报一个什么错误，把错误内容贴上来
------解决方案--------------------
ii_width和ii_height有无为零的情况?

pb 8.0 最大化 最小化出错

pb 8.0 最大化最小化出错