以下代码用什么事件来响应？

qq9981

Sub xu(frm As Form)
    If SysCmd(acSysCmdGetObjectState, acForm, frm) = acObjStateOpen Then
    MsgBox "窗体" & frm.Name & "已被打开"
    Else
    MsgBox "窗体" & frm.Name & "未被打开"
    End If
End Sub
在书上看了一段例题，列出了上述代码，请问用什么事件才能让上述代码发挥作用？（好像简单了些）

zzq0884

你新建一个窗体，然后用楼上那位的方法调用就可以了，当然，用另外的方法也可以的。自己去试试吗？

cg1

sub command_click()
xu("windowsXP")
end sub