按下最小化按钮，为什么报错？

Question

把Form_Resize里的代码贴出来
或加一句on error resume enxt

Answer 1

在Form_Resize的最前面加上：If Me.WindowState=VbMinimized then Exit Sub

Answer 2

没错
就看 risize 中的代码
不可以在人很情况下都给窗体赋值比如窗体最小化时！

Answer 3

resize中没有判断最大最小的情况。

Answer 4

Private Sub Timer3_Timer()
Static i%
i = i + 60
If Me.Width < 4035 Then
    Me.Width = Width + i
    Me.left = left - (i / 2)
Else
    i = 0
End If
If Me.Height < 3100 Then
    Me.Height = Height + i
    Me.top = top - (i / 2)
Else
    i = 0
End If
End Sub我差不多知道怎么回事了，不过怎么修改？？
如果没有看错应该是:
    Me.Height = Height + i
得限制！
报错得时候VB也指出是这里
不过，怎么能修改既能用      Me.Height = Height + i
又能用最小化？
谢谢指教我做得是逐渐拉开得窗体,用得是TIMER触发得事件。