target  : (5,0x0C) RaiseEvent
status  : emitted
from    : discovery snippet 'events' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim k As New CSink
End Sub

' ---- CSrc.cls
Option Explicit
Public Event Fired(ByVal n As Long, s As String)
Public Event Simple()
Public Sub Go()
  Dim s As String
  RaiseEvent Fired(1, s)
  RaiseEvent Simple
End Sub

' ---- CSink.cls
Option Explicit
Private WithEvents src As CSrc
Public Sub Hook()
  Set src = New CSrc
  src.Go
End Sub
Private Sub src_Fired(ByVal n As Long, s As String)
  s = CStr(n)
End Sub
Private Sub src_Simple()
End Sub

target disasm lines:
  CSrc.Go | 401B1F    FF0C 010000000200     RaiseEvent eventIndex:0x1 unk:0x0 args0x2
  CSrc.Go | 401B2A    FF0C 020000000000     RaiseEvent eventIndex:0x2 unk:0x0 args0x0
