target  : (3,0xEF) FMemStAdFunc
status  : emitted
from    : discovery snippet 'st_glob_Obj' (minimised)

' ---- modProbe.bas
Option Explicit
Dim g As Object

Public Sub Main()
  Set g = New Collection
  Dim b As Object
End Sub

target disasm lines:
  modProbe.Sub Main | 401488    FDEF 08000000         FMemStAdFunc [this+0x0]
