主题：运算导致溢出 应该怎么办？

AfterLoad事件，要写代码

If e.Form.Width> 0 AndAlso e.Form.height > 0 Then
    vars("width") = e.Form.width
    vars("height") = e.Form.height
End If