Menambahkan Project Baru Menggunakan Add-Ins Visual Basic 6

Di bawah merupakan contoh menambahkan project baru menggunakan VB6 Addins. Adapun kode yang dibutuhkan untuk menambahkan project baru adalah VBInstance.VBProjects.Add(ProjectType), seperti pengkodean pada umumnya (menambahkan kontrol objek pada koleksi).

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
 
    Dim p As VBProject 
    Set p = AddNewProject(vbext_pt_ActiveXControl) 'ActiveXControl project 
    With p 
        .Name = "prjButtonControl" 'setting properties 
        '.dan sebagainya 
    End With 
     
    Set p = AddNewProject(vbext_pt_ActiveXDll) 'ActiveXDll Project 
    With p 
        .Name = "prjClassDatabase" 'setting properties 
    End With 
    'dan sebagainya 
    AddNewProject vbext_pt_ActiveXExe 'ActiveXExe project 
    AddNewProject vbext_pt_StandardExe 'Standard Exe Project 
    'dan lain-lain 
End Sub 
 
'fungsi untuk menambahkan project baru 
Private Function AddNewProject(pType As vbext_ProjectType) As VBProject 
    Set AddNewProject = VBInstance.VBProjects.Add(pType) 
End Function