Memasukan Sebuah Object ke dalam Container - Addins VB6

Di bawah ini merupakan contoh kode untuk memasukan sebuah objek ke dalam objek kontainer melalui Addins, dalam hal ini objek diwakili oleh satu CommandButton dan kontainer diwakili oleh satu objek Frame.

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    ObjectInContainerSample 
End Sub 
 
Private Sub ObjectInContainerSample() 
    'menambahkan PictureBox 
    Dim f As VBForm 
    Dim p As VBControl 
    Dim b As VBControl 
    Set f = VBInstance.SelectedVBComponent.Designer 
    Set p = f.VBControls.Add("Frame") 
    With p 
        .Properties("Height") = 2000 
        .Properties("Width") = 4000 
        .Properties("Left") = 500 
        .Properties("Top") = 500 
        .Properties("Caption") = "Data Siswa" 
        '.properties dan lain-lain 
    End With 
    'menambahkan CommandButton 
    Set b = f.VBControls.Add("CommandButton") 
    Set b.Container = p 'memasukan sebuah objek ke dalam kontainer 
    With b 
        .Properties("Left") = 500 
        .Properties("Top") = 500 
        .Properties("Caption") = "&Simpan" 
        '.properties dan lain-lain 
    End With 
End Sub