How can I remove embedded font data stream?

Q:

Do you have a VB.Net sample of how to remove a font?
----

A:

You can remove an embedded font data stream as follows:

Dim myfont As pdftron.PDF.Font = ...
Dim fd as Obj = myfont.GetDescriptor()
If Not fd is Nothing Then
  fd.Erase("FontFile")
  fd.Erase("FontFile2")
  fd.Erase("FontFile3")
EndIf

The relevant FAQ entry is:
  'How can I remove embedded font?'
    http://www.pdftron.com/net/faq.html#fnt_remove