VB6 Code - Cara Membuat Form Pada Saat Design Time

Artikel di bawah ini menjelaskan bagaimana cara membuat form pada saat design time melalui pengkodean Visual Basic 6.0. Langkah-langkah pembuatan: Buat project Add-Ins yang berasal dari template Secara default maka akan terdapat frmAddIn, di dalamnya terdapat kode:

Public VBInstance As VBIDE.VBE
Public Connect As Connect

Option Explicit

Private Sub CancelButton_Click()
 Connect.Hide
End Sub

Private Sub OKButton_Click()
 MsgBox "AddIn operation on: " & VBInstance.FullName
End Sub

Public VBInstance As VBIDE.VBE
Public Connect As Connect

Gantilah seluruh kodenya dengan kode di bawah ini:

Option Explicit

Private Sub CancelButton_Click()
 Connect.Hide
End Sub

Private Sub OKButton_Click()
 Dim frm As VBIDE.VBComponent
 Set frm = VBInstance.ActiveVBProject.VBComponents.Add(vbext_ct_VBForm)
 With frm
     .Properties("Name") = "frmMain"
     .Properties("Width") = 7155
     .Properties("Caption") = "Main Form"
     .Properties("Height") = 5000
 End With
End Sub

Langkah selanjutnya adalah meng-compile kodenya sehingga terbentuk file dengan nama "MyAddIn.dll".

Langkah-langkah menjalankan:

1. Buka project baru
2. Klik menu Add-Ins
3. Klik Sub Menu My AddIn