Outlook Event

[swdesh]

Hi
I am creating one outlook add-in using VSTO 2005 SE.
I need to track all appointment event. I have used the following code..

Private Sub initializeEvent()
        Dim olFolder As Outlook.Folder = Nothing
        Dim olCalendarFolder As Outlook.MAPIFolder
        Dim olItems As Items
        olCalendarFolder = olNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
        olFolder = DirectCast(olCalendarFolder, Outlook.Folder)
        olItems = olCalendarFolder.Items
 
        objItem = olItems(0)
        AddHandler olItems.ItemAdd, AddressOf ApptAdded
        AddHandler olItems.ItemChange, AddressOf ApptModified
        AddHandler olFolder.BeforeItemMove, AddressOf ApptDelete
 
        olFolder = Nothing
        olCalendarFolder = Nothing
        olItems = Nothing
    End Sub

The above code is working fine if we do only add and modify appointment..but if we delete appointment then after deleting 2-3 appointment its stop firing any event. If i use olItems.ItemRemove insted of olFolder.BeforeItemMove then its working fine. But with this event i will be not able to track which appointment has got deleted.
Please can anyone tell me the my mistake?

Thanks