target  : (2,0xB6) Ary1StVargCopy
status  : emitted
from    : discovery snippet 'arr_paramarray_Bool' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim a As Boolean
End Sub

Sub PA(ParamArray p() As Variant)
  Dim i As Long, v As Variant
  i = 1
  v = p(i)
  p(i) = v
  For Each v In p
  Next
  i = UBound(p)
End Sub

target disasm lines:
  modProbe.Proc_401490 | 4014AF    FCB6                  Ary1StVargCopy
