Vba 按条件关闭用户窗体或窗口

我使用的软件没有加载窗口/图片，所以当我运行它时，我不知道它何时开始运行。虽然我可以在taskmanager中监视正在运行的.exe任务，但我希望在VBA中创建一个“加载窗口”，以使加载过程更加可见。我认为实现这一点的一个可能方法是编写一个包含shell的简单宏。命令和测试条件，例如，如果计数器计数为130，则关闭窗体自动结束。问题是，当我尝试使用Unload Me时，它不能被使用，除非它是click事件的一部分。以下是打开我的表单的代码：

Sub Loadpic()

LPic.Show

End Sub

你可以用这个

Unload LPic
Do Events

---

查看表单时，可以在属性对话框中找到表单名称，按F4键

单击什么关闭它？或者您想让它自动关闭？我想让excel在一段时间后自动关闭它，或者在条件满足时自动关闭它，不受任何用户交互影响。感谢您的快速响应，但我在下面的代码中尝试了这一点，我必须单击红色的关闭按钮以使代码的其他部分运行for循环。unload命令似乎不起作用，或者我误用了它：Sub Loadpic LPic.Show For I=1到10 Debug.Print I Next I unload LPic End Sub我已经尝试过了。仍然必须使用关闭按钮。下面是模块中的代码：Sub Loadpic LPic.Show For i=1到10 Debug.Print i Next i Unload LPic DoEvents End Sub对不起，我不知道如何在注释中放换行符。userform中有代码吗？！我想现在没有了。忘记这一切，只需将unload me添加到userform本身中-右键单击userform并单击view codeno，它位于模块中，我从模块中删除了unload LPic DoEvents，并仅将unload me命令放入userform中，并收到以下消息：编译错误：无效的外部过程重新激活子LPic\U初始化卸载我结束子