Народ посоветуйте.
Хочу написать макрос под студио.НЕТ, что бы он при добавлении нового файла в проект, производил определенные действия.
Трабл с отловом сообщения, когда добавляется новый Item в проект.
Нашел самплик в для отлова сообщения OnBuildDone.
Переделал его. Но не работает, сообщение не приходит
что не так ?

Public Module Module1
Dim WithEvents xevents As ProjectItemsEvents
Dim applicationObject As EnvDTE.DTE

Sub EventsExample()
applicationObject = CType(Application, EnvDTE.DTE)
xevents=CType(applicationObject.Events.SolutionItemsEvents,EnvDTE.ProjectItemsEvents)
End Sub

Private Sub xevents_ItemAdded(ByVal Project As EnvDTE.ProjectItem) Handles xevents.ItemAdded
MsgBox("test")
End Sub