ACCESS VBA フォームがOPENしてる?

ACCESS VBA　フォームがOPENしてるかチェックするには、
------------------------------------------------------------
If SysCmd(acSysCmdGetObjectState, acForm, "フォーム名") = acObjStateOpen Then
　　'そのフォームに対する処理とか
End If
------------------------------------------------------------

参考HP：Access-Access!
"ACCESS TIPS テーブルやフォーム等のオブジェクトの状態を調べる、SysCmd、acSysCmdGetObjectState"
http://www.feedsoft.net/access/tips/tips80.html