Dim part As PartDocument = ThisDoc.DocumentDim userParams = part.ComponentDefinition.Parameters.UserParametersDim p As Inventor.ParameterTry p = userParams("R1")Catch p = userParams.AddByValue("R1", 0, "mm")End Tryp.Comment = "NADPIS - ROZM�R"Try p = userParams("PR1")Catch p = userParams.AddByValue("PR1", 0, "mm")End Tryp.Comment = "POPIS - ROZM�R"Dim propertyName As String = "N1"Dim propertyValue As String = ""customPropertySet = ThisDoc.Document.PropertySets.Item("Inventor User Defined Properties")Try      prop = customPropertySet.Item(propertyName)Catch      customPropertySet.Add("", propertyName)End TryTry prop = customPropertySet.Item("PR1")Catch customPropertySet.Add(" ","PR1")End TryTry prop = customPropertySet.Item("PR1-M")Catch customPropertySet.Add(" ","PR1-M")End TryTry prop = customPropertySet.Item("R1")Catch customPropertySet.Add(" ","R1")End TryTry prop = customPropertySet.Item("R1-M")Catch customPropertySet.Add(" ","R1-M")End Try