Flagging a block as annotative using VBA

[CADUSER2009]

How do I flag a block as "annotative" and "match orientation to layout" using VBA?

Dim objBlock As AcadBlock
...