将下列代码复制到模块中，并按F5运行，然后打开“窗体1”，做一些动作即可。
　　Function setEvent()
　　Dim p As Property
　　For Each p In Forms("窗体1").Properties
　　If Left(p.Name, 2) = "On" _
　　Or Left(p.Name, 5) = "After" _
　　Or Left(p.Name, 6) = "Before" Then
　　p.Value = "=msgbox('" & p.Name & "')"
　　End If
　　Next p
　　End Function
　　Function resumeEvent()
　　Dim p As Property
　　For Each p In Forms("窗体1").Properties
　　If Left(p.Name, 2) = "On" _
　　Or Left(p.Name, 5) = "After" _
　　Or Left(p.Name, 6) = "Before" Then
　　p.Value = ""
　　End If
　　Next p
　　End Function

　　更多信息请访问：计算机等级考试站　计算机等级考试在线题库　计算机等级考试论坛