当我关闭MDI退出程序时，打开的窗体仍然在桌面上，我希望能在关闭MDI退出程序时，所有打开的窗体能自动关闭，这个要怎么实现，谢谢大家。
  当点那个叉时，能出现提示最好，请问有办法 实现吗

MDI 退出时，会自动关闭所有 的 子窗口，但对于其它 窗体 ，你必须手动关闭。

dim fr as form
for each fr in forms
   unload fr
next
就是这样的可以关闭所有的窗体。

或者你使用 计数来访问每个窗体。
dim i as long
for i=1 to forms.count
   unload forms(i)
next i


退出时提示：
在 form_unload(can.. as bool..)  注：忘了几个字母了。
if msgbox("你是否退出程序",vbokcan... ,"是否退出")=VBcan.. then
   can.. = true              '中断退出
end if
忘了好多字母，用 ALT + 向右光标就可以看到这些命令了，我老是记不全。


临时写的代码，你要自己调试一下。

谢谢班主，