VbAddin

Private Sub OKButton_Click()
Dim i As Integer
On Error Resume Next
'Project Name

debug.print VBInstance.FullName
'Add Modules to the Project

VBInstance.ActiveVBProject.VBComponents.Add 1 'Add Module
VBInstance.ActiveVBProject.VBComponents.Add 2 'Add Class Module
VBInstance.ActiveVBProject.VBComponents.Add 5 'Add Form
VBInstance.ActiveVBProject.VBComponents.Add 6 'Add MDI Form
VBInstance.ActiveVBProject.VBComponents.Add 7 'Add Property Page
VBInstance.ActiveVBProject.VBComponents.Add 8 'Add User Control
'Add Controls

VBInstance.ActiveVBProject.AddToolboxProgID "{BFB37EC3-FAB2-11D2-8A09-A907667BEC0B}#4.0#0", "C:\DISKS\Files\Programming\Millenium\Projects\Report OCX\ERMVIEW.ocx"
'Quit VB

'VBInstance.ActiveVBProject.VBComponents(1).DesignerWindow.VBE.Quit

'Show Form/Module

VBInstance.ActiveVBProject.VBComponents(1).DesignerWindow.Visible = True
'Show Code Pane

VBInstance.ActiveVBProject.VBComponents(1).CodeModule.CodePane.Show
'List Project Components/Windows


With VBInstance.ActiveVBProject.VBE.Windows
For i = 1 To .Count
Debug.Print .Item(i).Caption, i
Next
End With

'Link Windows


With VBInstance.ActiveVBProject.VBE
For i = 1 To .Windows.Count
.Windows(6).LinkedWindowFrame.LinkedWindows.Add .Windows(i)
Next
End With

End Sub