Correctly analyze property declarations with 'USE' including variable initialization.

[DEVELOPMENT ENVIRONMENT]
* BUG: Correctly analyze property declarations with 'USE' including variable initialization.

app/src/gambas3/.src/Component/CDocumentation.class

@@ -873,15 +873,18 @@ Private Sub ScanClass(hModule As Object, cSymbol As Collection, bModule As Boole
       ' PROPERTY ... USE
       
       If InStr("pr", sKind) And If aSym.Count >= 4 Then
-        If aSym[aSym.Count - 2] == "USE" Then
-          sName = aSym[aSym.Max]
+        For iInd = 2 To aSym.Max - 1
+          If aSym[iInd] == "USE" Then
+            sName = aSym[iInd + 1]
             hSymbol2 = hSymbol.Copy()
             hSymbol2.Kind = If(IsUCase(sKind), "V", "v")
             hSymbol2.Name = sName
             hSymbol2.LineNumber = hSymbol.LineNumber
             hSymbol2.NotPublic = True
             cSymbol[sName] = hSymbol2
+            Break
           Endif
+        Next
       Endif
 
       bCanInherit = False