Lines Matching refs:myContolDict
149 Dim myContolDict As Scripting.Dictionary variable
209 Set myContolDict = New Scripting.Dictionary
213 If myContolDict.Exists(myType) Then
214 myContolDict.item(myType) = myContolDict.item(myType) + 1
216 myContolDict.Add myType, 1
230 vKeyArray = myContolDict.Keys
231 vItemArray = myContolDict.Items
234 For count = 0 To myContolDict.count - 1
241 myIssue.Values.Add myContolDict.count, RID_STR_COMMON_ATTRIBUTE_USERFORM_TYPES_COUNT
243 …docAnalysis.MacroNumUserFormControlTypes = myContolDict.count + docAnalysis.MacroNumUserFormContro…
245 Set myContolDict = Nothing
285 Set myContolDict = Nothing