用户登录系统后发生。
Private Sub expression_MapiLogonComplete( )
expression 该变量引用一个在类模块中以事件形式声明的 Application 类型对象。
以下示例在用户登录系统后显示一条消息。
Private Sub objApp_MapiLogonComplete() 'Occurs when a user has logged on MsgBox "Logon complete" End Sub