Const CLSID_NetEvent = "{562625B2-58C1-43B8-A7B8-FD801CE8F0BB}"
Const IID__NetEvent= "{79823C92-F3CE-444A-946E-6F3872C56EAB}"
Const ProgID_NetEvent = "NetEvent"

VB6测试

Private Sub Command1_Click()
    Dim o As Object
    Set o = CreateObject("NetEvent")
    MsgBox o.Add(Me,123&,456&)
End Sub

Sub Events()
    MsgBox "Events"
End Sub