定义一个公共变量: CurForm AS STRING=""再定义一个公共函数: Public Sub FrmUnload(ByVal myFrm As Form) '关闭已经打开的窗口 Try If myFrm.Name <> "FrmMain" Then myFrm.Close() End If Catch ex As Exception End Try End Sub每次在打开新窗体前先调用关闭窗口公共函数:FrmUnload(CurForm)然后将当前打开窗体名称赋值给变量 CurForm如果还看不懂那我也没办法了!没有悬赏分数的问题一般不会回答的!破例