fixed Attributes.g4 to parse UserForm headers.

Author: retailcoder

Rubberduck.Parsing/VBA/AttributeParser.cs

@@ -142,7 +142,8 @@ public override void ExitAttributeStmt(AttributesParser.AttributeStmtContext con
             public override void ExitModuleConfigElement(AttributesParser.ModuleConfigElementContext context)
             {
                 var name = context.ambiguousIdentifier().GetText();
-                var values = new[] {context.literal().GetText()};
+                var literal = context.literal();
+                var values = new[] { literal == null ? string.Empty : literal.GetText()};
                 _currentScopeAttributes.Add(name, values);
             }
         }

Rubberduck.Parsing/VBA/Attributes.g4

@@ -33,17 +33,16 @@ module :
 	WS?
 ;
 
-moduleHeader : VERSION WS DOUBLELITERAL WS CLASS;
+moduleHeader : VERSION WS DOUBLELITERAL WS? CLASS? endOfStatement;
 
 moduleConfig :
-	BEGIN endOfStatement
+	BEGIN (WS GUIDLITERAL WS ambiguousIdentifier WS?)? endOfStatement
 	moduleConfigElement+
 	END
 ;
 
 moduleConfigElement :
-	ambiguousIdentifier WS? EQ WS? literal endOfStatement
-;
+	ambiguousIdentifier WS* EQ WS* literal (':' SHORTLITERAL)? endOfStatement;
 
 moduleAttributes : (attributeStmt endOfStatement)+;
 
@@ -423,6 +422,7 @@ HEXLITERAL : '&H' [0-9A-F]+ '&'?;
 SHORTLITERAL : (PLUS|MINUS)? DIGIT+ ('#' | '&' | '@')?;
 INTEGERLITERAL : SHORTLITERAL (E SHORTLITERAL)?;
 DOUBLELITERAL : (PLUS|MINUS)? DIGIT* '.' DIGIT+ (E SHORTLITERAL)?;
+GUIDLITERAL : '{' [0-9A-F]+ '-' [0-9A-F]+ '-' [0-9A-F]+ '-' [0-9A-F]+ '-' [0-9A-F]+ '}';
 
 DATELITERAL : '#' DATEORTIME '#';
 fragment DATEORTIME : DATEVALUE WS? TIMEVALUE | DATEVALUE | TIMEVALUE;