是否存在:
If forms.contains("窗口名") = True '有Else '无End If
是否打开:
If forms("窗口名").Opened = True '打开了Else '未打开End If