Sub DeleteFont(font_id)

Frees a font from memory