target  : (4,0xF5) AssignRecord
status  : emitted
from    : discovery snippet 'udt_assign' (minimised)

' ---- modProbe.bas
Option Explicit
Private Type TRec
  a As Long
  s As String
  v As Variant
  o As Object
End Type
Private Type TPlain
  a As Long
  b As Integer
End Type

Public Sub Main()
  Dim r As TRec, q As TRec
  q = r
End Sub

target disasm lines:
  modProbe.Sub Main | 40147A    FEF5 0000             AssignRecord udtPool:0x0
