Close Part and Assembly but not Drawing

I'm looking for a line of vb code that will close the active part or assembly file but keep the active drawing file open.

Can anybody help?

SolidworksApi macros