Add test for Public Creatable class instance

This is an undocumented property value that is sometimes used in the wild. Currently when you build from source, PublicCreatable (5) classes are converted to PublicNotCreatable (2). This instancing property can be set in VBA, and we want the imported class to match what was exported. This test currently fails, but will pass when the add-in is updated to support this property.

Author: joyfullservice

Testing/Testing.accdb.src/forms/frmMain.cls

@@ -111,6 +111,9 @@ Public Sub cmdRunTests_Click()
     strTest = CurrentProject.AllModules("clsPerson").Name
     ShowResult "Class Module exists", (strTest = "clsPerson")
 
+    strTest = GetVBProjectForCurrentDB.VBComponents("clsPublic").Properties("Instancing")
+    ShowResult "Class with Public Creatable Instancing", (strTest = "5")
+
 
     ' Database properties
     strTest = ""

Testing/Testing.accdb.src/modules/basUtility.bas

@@ -113,3 +113,16 @@ Public Function GetVBProjectForCurrentDB() As VBProject
     End If
 
 End Function
+
+
+'---------------------------------------------------------------------------------------
+' Procedure : SetClassInstancing
+' Author    : Adam Waller
+' Date      : 11/25/2023
+' Purpose   : Set the clsPublic class to use Public Creatable instancing.
+'---------------------------------------------------------------------------------------
+'
+Public Sub SetClassInstancing()
+    Const PublicCreatable = 5
+    GetVBProjectForCurrentDB.VBComponents("clsPublic").Properties("Instancing") = PublicCreatable
+End Sub

Testing/Testing.accdb.src/modules/clsPublic.cls

@@ -0,0 +1,20 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "clsPublic"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+'---------------------------------------------------------------------------------------
+' Module    : clsPublic
+' Author    : Adam Waller
+' Date      : 11/25/2023
+' Purpose   : This class is set to public creatable instancing.
+'---------------------------------------------------------------------------------------
+
+Option Compare Database
+Option Explicit
+
+Public MyProperty As String