Sub传递了一个用户控件，因为对象在已编译的程序中崩溃，而不是在IDE中崩溃

Question

我有一个函数，它传递一个用户控件（在项目中定义）作为其中一个参数。通过IDE运行时，这很好用。但是，它在编译版本运行时经常显示出意外（虽然变化）的行为 - 最常见的（并且有问题）是短暂挂起，然后是桌面崩溃（没有错误消息）。 （始终是Windows 7）。

粗略地说，代码看起来像这样：

Public Sub DoStuffToControl(ByRef ThisUserControl As MyUserControl)

    Dim refreshState As Boolean
    Dim I As Long

    refreshState = ThisUserControl.Redraw
    ThisUserControl.Redraw = False
    for I = 0 to 1000
        'Do something to the control
    next I
    ThisUserControl.Refresh
    ThisUserCOntrol.Redraw = refreshState

End Sub