eventos de applciación

He estado tratando de correr el siguiente codigo

en un modulo de clases
Public WithEvents appEvent As Application

Private Sub appevent_WindowResize(ByVal Wb As Excel.Workbook, ByVal Wn
As Excel.Window)
            MsgBox "you have resized excel"
End Sub

despues en un modulo normal

Dim myObject As New ClsAppEvents

Sub testObject()
    Set myObject.appEvent = Application
End Sub


corro el proceso testObject sin ningun error

supuestamente esto enseñaría un mensaje diciendo "Usted ha cambiado del
tamaño de su aplicación"

si alguien sabe el porqué esto no está funcionando... por favor
déjenoslo saber
gracias

LH