Creates a new header or footer layer
IWPDataBlock BlockAppend([In] DataBlockKind Kind);
This method is used to create a new header or footer text block. An interface to the created block is returned as IWPDataBlock reference so you can modify the properties.
Note: Please don't forget to call ReleaseInt() with the returned interface at the end of your code.
Dim header As IWPDataBlock
header = Memo.BlockAdd(DataBlockKind.wpIsHeader, DataBlockRange.wpraOnAllPages, "", 0)
' it is required to call ReleaseInt to remove the interface
Hint: This action starts the "manage header and footer" dialog: wpaDiaManageHeaderFooter