Include class instancing in code module hash

Class modules have an instancing property that needs to be checked for changes along with the VBA code to ensure that the database object matches the last export. A module will now be flagged as changed if the instancing property is changed.

Version Control.accda.src/modules/modHash.bas

@@ -258,6 +258,7 @@ Public Function GetCodeModuleHash(intType As eDatabaseComponentType, strName As
     Dim strPrefix As String
     Dim proj As VBProject
     Dim blnNoCode As Boolean
+    Dim strInstancingFlag As String
 
     Perf.OperationStart "Get VBA Hash"
     Select Case intType
@@ -285,8 +286,14 @@ Public Function GetCodeModuleHash(intType As eDatabaseComponentType, strName As
 
         ' Output the hash
         If Not cmpItem Is Nothing Then
-            With cmpItem.CodeModule
-                strHash = GetStringHash(.Lines(1, 999999))
+            With cmpItem
+                ' Check for class module
+                If .Type = vbext_ct_ClassModule Then
+                    ' Save instancing property as a flag to include with hash
+                    strInstancingFlag = CStr(.Properties("Instancing"))
+                End If
+                ' Generate hash from code and instancing flag (if applicable)
+                strHash = GetStringHash(.CodeModule.Lines(1, 999999) & strInstancingFlag)
             End With
         End If