不论窗体是最大化还是最小化，检测窗体是否打开？

fatmingli

Function IsLoaded(strName As String, Optional intObjectType As Integer =
acForm)
IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
End Function
这是我找到的模块，对吗？怎么用？
if 窗体1 已经打开 then
......
end if

marco2

用法为：
If IsLoaded("你的窗体名") Then
   MsgBox "已经打开了"
End If