Menutup Seluruh Windows Yang Tidak Digunakan - VB6 Add-Ins

Contoh kode untuk menutup Windows yang tidak digunakan menggunakan Add-Ins:

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    CloseUnusedWindows 
End Sub 
 
'kode di bawah akan menutup seluruh windows kecuali windows yang sedang aktif 
Private Sub CloseUnusedWindows() 
    Dim v As VBComponent 
    For Each v In VBInstance.ActiveVBProject.VBComponents 
        If Not (v Is VBInstance.SelectedVBComponent) Then 
            v.DesignerWindow.Close 
        End If 
    Next 
End Sub