通过三个步骤，可为Application对象的事件创建事件句柄。该对象在PowerPoint环境中使用。
在类模块中声明一个对象变量以响应事件。
编写特定的事件过程。
在另一模块中初始化声明的对象。
一、声明对象变量
在为 Application 对象的事件编写过程之前，必须新建一个类模块，然后声明一个具有事件的 Application 类型的对象。例如，假设已新建一个类模块且其名称为 EventClassModule。该新类模块包含以下代码。
Public WithEvents App As Application
二、编写事件过程
声明具有事件的新对象之后，该对象就会出现在类模块的“对象”列表中，然后就可以为此新对象编写事件过程。（当在“对象”列表中选择新对象时，“过程”列表中就会列出该对象的有效事件。）从“过程”列表中选择一个事件；就会在类模块中添加一个空过程。
Private Sub App_NewPresentation()
End Sub
三、初始化声明的变量
在过程运行之前，必须将类模块中声明的对象（本示例中为 App）与 Application 对象相连。用户可以在任意模块中使用以下代码实现此处理过程。
Dim X As New EventClassModule
Sub InitializeApp()
Set X.App = Application
End Sub
运行 InitializeApp 过程。当运行此过程后，类模块中的 App 对象就会指向 Microsoft PowerPoint 的 Application 对象，然后当事件发生时，类模块中的事件过程就会运行。