target  : (3,0xE8) FMemStAd
status  : emitted
from    : discovery snippet 'st_udtglob_Obj' (minimised)

' ---- modProbe.bas
Option Explicit
Private Type TRec
  pad As Long
  f As Object
End Type
Dim gr As TRec

Public Sub Main()
  Dim b As Object
  Set gr.f = New Collection
End Sub

target disasm lines:
  modProbe.Sub Main | 4014B3    FDE8 08000400         FMemStAd [this+0x4]
