target  : (4,0x88) ForEachCollObj
status  : emitted
from    : discovery snippet 'foreach_collcls' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim c As New Collection, x As CThing
  For Each x In c
  Next
End Sub

' ---- CThing.cls
Option Explicit

target disasm lines:
  modProbe.Sub Main | 4016C5    FE88 70FF01001C00     ForEachCollObj var_90 0x1 loc_4016D8
