Merge pull request #4303 from mansellan/4302

Grammar tweak for indexed properties in form header (VB6)

Author: retailcoder

Rubberduck.Parsing/Grammar/VBAParser.g4

@@ -56,7 +56,7 @@ moduleConfig :
 ;
 
 moduleConfigProperty :
-    BEGINPROPERTY whiteSpace unrestrictedIdentifier (whiteSpace GUIDLITERAL)? endOfStatement
+    BEGINPROPERTY whiteSpace unrestrictedIdentifier (LPAREN numberLiteral RPAREN)? (whiteSpace GUIDLITERAL)? endOfStatement
         (moduleConfigProperty | moduleConfigElement)+
     ENDPROPERTY endOfStatement
 ;

RubberduckTests/Grammar/VBAParserTests.cs

@@ -1097,6 +1097,24 @@ BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
             AssertTree(parseResult.Item1, parseResult.Item2, "//moduleConfigProperty", matches => matches.Count == 2);
         }
 
+        [Category("Parser")]
+        [Test]
+        public void TestIndexedProperty()
+        {
+            string code = @"
+VERSION 5.00
+Begin VB.Form Form1
+   Begin ComctlLib.ListView lvFilter 
+      BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
+         Caption      =   ""ID""
+      EndProperty
+   End
+End
+";
+            var parseResult = Parse(code);
+            AssertTree(parseResult.Item1, parseResult.Item2, "//moduleConfigProperty", matches => matches.Count == 1);
+        }
+
         [Category("Parser")]
         [Test]
         public void TestEmptyComment()