target  : (5,0x1E) ImpAdCallNonVirt
status  : emitted
from    : discovery snippet 'cls_Bool' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim o As CThing, b As Boolean
  b = o.FrFn()
End Sub

' ---- CThing.cls
Option Explicit
Public pub As Boolean
Private m As Boolean
Private ma(3) As Boolean
Public Sub Work()
  Dim b As Boolean, i As Long
  m = b
  b = m
  pub = b
  b = pub
  i = 1
  ma(i) = b
  b = ma(i)
  b = Me.Prop
  Me.pub = b
  b = Fn()
  Sb
  Me.Sb
End Sub
Public Property Get Prop() As Boolean
  Prop = m
End Property
Public Property Let Prop(v As Boolean)
  m = v
End Property
Public Function Fn() As Boolean
  Fn = m
End Function
Private Function PFn() As Boolean
  PFn = m
End Function
Public Sub Sb()
  Dim b As Boolean
  b = PFn()
End Sub
Friend Function FrFn() As Boolean
  FrFn = m
End Function

target disasm lines:
  modProbe.Sub Main | 401A8A    FF1E 00000800         ImpAdCallNonVirt CThing.Proc_401944 espCheck: 8
