Add a File to the Current Project

When making an add-in, you may want this functionality. This tip shows how:

'// Requires a reference to the_
 VB Extensibility Type Library 

Public Sub AddFile_
(VBInst As VBIDE.Application) 
Dim AP As Object 
Set AP = VBInst.ActiveProject 
AP.AddFile (App.Path & "\y.xxx") 
Set AP = Nothing 
End Sub