关闭掉1个Form 的函数是什么？

Question

rt

Answer 1

Unload 语句
   从内存中卸载窗体或控件。语法Unload objectobject 所在处是要卸载的 Form 对象或控件数组元素的名称。说明当所占内存另有它用，或需要重新设置窗体、控件的属性为初始值时，就有必要卸载窗体或控件。在卸载窗体前，会发生 Query_Unload 事件过程，然后是 Form_Unload 事件过程。在其中任一过程中设置 cancel 参数为 True 可防止窗体被卸载。若为 MDIForm 对象，先发生 MDIForm 对象的 Query_Unload 事件过程，接着是各 MDI 子窗体 的 Query_Unload 事件过程和 Form_Unload 事件过程，最后是 MDIForm 对象的 Form_Unload 事件过程。当窗体卸载之后，所有在运行时 放到该窗体上的控件都不再是可访问的。在设计时放到该窗体上的控件将保持不变；但是，当窗体重新加载时，在运行时对这些控件及其属性的任何更改将丢失。所有对于窗体属性的更改也将丢失。对窗体上任何控件的访问会导致窗体重新加载。注意 在卸载窗体时，只有显示的部件被卸载。和该窗体模块相关联的代码还保持在内存中。只有在运行时添加到窗体上的控件数组元素才能用 Unload 语句卸载。重新加载被卸载的控件时，其属性会被重新初始

Answer 2

form.hide
不知道你要的是不是这个

Answer 3

Unload 语句示例
这个示例使用 Unload 语句来卸载 Form 对象。在运行此例前，在 Form 对象的声明部分粘贴以下代码，然后运行此例并单击该 Form 对象。Private Sub Form_Click ()
   Dim Answer, Msg   ' 声明变量。
   Unload Form1   ' 卸载窗体。
   Msg = "Form1 has been unloaded. Choose Yes to load and "
   Msg = Msg & "display the form. Choose No to load the form "
   Msg = Msg & "and leave it invisible."
   Answer = MsgBox(Msg, vbYesNo)   ' 获得用户响应。
   If Answer = vbYes Then   ' 测试应答。
      Show   ' 如果回答 Yes，则显示窗体。
   Else
      Load Form1   ' 如果回答 No，仅加载窗体。
      Msg = "Form1 is now loaded. Choose OK to display it."
      MsgBox Msg   ' 显示信息。
      Show   ' 显示窗体。
   End If
End Sub