replace old property grid for final indexes

app/DD_PM_WINDREAM/ClassFinalIndex.vb

@@ -168,7 +168,7 @@ Public Class ClassFinalIndex
         Return LIST_VECTOR_INDICIES.Contains(type)
     End Function
 
-    Public Shared Function GetIndexType(indexName As String, indicies As List(Of String), types As List(Of Integer))
+    Public Function GetIndexType(indexName As String, indicies As List(Of String), types As List(Of Integer)) As Integer
         Try
             Dim position As Integer = indicies.IndexOf(indexName)
             Dim type As Integer = types.Item(position)
@@ -176,6 +176,7 @@ Public Class ClassFinalIndex
             Return type
         Catch ex As Exception
             MsgBox(ex.Message & vbNewLine & $"Please check whether attribute {indexName} exists in AtributesList!", MsgBoxStyle.Critical)
+            Return Nothing
         End Try
 
     End Function