在B窗口的Unload()事件里关闭其他打开的窗体:Private Sub Form_Unload() Dim frm As Form For Each frm In Forms Unload frm Next End Sub
在每个窗体的unload事件中写上:set 窗体名=nothing
Public Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String) Public Declare Sub FatalExit Lib "kernel32" (ByVal code As Long)call FatalExit 0
Dim frm As Form
For Each frm In Forms
Unload frm
Next
End Sub
Public Declare Sub FatalExit Lib "kernel32" (ByVal code As Long)call FatalExit 0
System.Environment.Exit(0);