Antisipasi Dari Pemberian 'Option Explicit' Ganda - VB6 Add-Ins

Kode di bawah berguna untuk mencegah pemberian Option Explicit ganda pada saat memasukan kode pada VBComponent (Form, Module, Class, dll) misalnya dengan menggunakan kode ini.

Adapun kode untuk mengantisipasi dari double Option Explicit adalah sebagai berikut:

Option Explicit 
 
Public Function AddOptionExplicit() As String 
    If RegRead("HKEY_CURRENT_USER\Software\Microsoft\VBA\Microsoft Visual Basic\RequireDeclaration") = 1 Then 
        AddOptionExplicit = vbNullString 
    Else 
        AddOptionExplicit = "Option Explicit 'Add by Project Builder 2.0" & vbCrLf 
    End If 
End Function 
 
Private Sub Command1_Click() 
    MsgBox AddOptionExplicit 
End Sub 

Return VBNullString jika Option Explicit sudah ada, dan Option Explicit 'Add by Project Builder 2.0 jika Option Explicit belum ada.