主题：共有窗口如何实现关闭其他主窗口

判断某窗口是否打开

If forms("窗口2").opened Then

End If

如果希望焦点窗口为窗口1时触发事件，可以在timertick那里写代码

If Forms.ActiveForm IsNot Nothing AndAlso Forms.ActiveForm.name = e.Form.Name Then
    msgbox("得到焦点了")
End If