主题：在systemIDle事件中如下代码，会提示出错？

在SystemIdle事件中如下代码：
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
    Vars("活动窗口") = frm.Name
Else
    Vars("活动窗口") = ""
End If
常出现提示错误，确定后，提示暂停事件。

确实是,几次显示后才会出现,有可能是SystemIdle不支持ActiveForm

我现在想尽了办法来获取Vars("活动窗口") = frm.Name（多个窗口打开时，显示窗口的名称），Hi!!弄了半天都无法实现，请问杨老兄可否帮忙有办法实现？

看来只能是贺老师出马了,呵呵

贺老师，这个有办法实现吗？对个人而言，非常之重要。

求助！老大，以上能否解决？或其它办法？

老大，已通过其它方式解决了。不必麻烦贺老师了！

什么方式?放上来,让大家都学学啊,呵呵