Unload method example

Private Sub Unload_Example()

     Dim b As Block

     Set b = ActiveDocument.Blocks(1)

     b.Unload

     MsgBox "Blocks(1) has been unloaded."

End Sub