Creating an IGatherNotify Object

You create an IGatherNotify object by calling CreateObject, as in the following example, where objGatherNotify is the name you give to the IGatherNotify object:

Option Explicit 
On Error Resume Next

Dim objGatherNotify

Set objGatherNotify = CreateObject("GatherSvc.GatherNotify") 
objGatherNotify.Init("NotificationTest")

objGatherNotify.OnDataChange GTHR_CA_ADD, "C:\UpdateList.htm" 
objGatherNotify.OnDataChange GTHR_CA_DELETE, "C:\OldList.htm" 
objGatherNotify.OnDataChange GTHR_CA_MODIFY, "C:\ChangeList.htm" 

'Release objGatherNotify object
Set objGatherNotify = Nothing