Dim part As PartDocument = ThisDoc.Document
Dim userParams = part.ComponentDefinition.Parameters.UserParameters
Dim p As Inventor.Parameter
Try
 p = userParams("R1")
Catch
 p = userParams.AddByValue("R1", 0, "mm")
End Try
p.Comment = "NADPIS - ROZM�R"

Try
 p = userParams("PR1")
Catch
 p = userParams.AddByValue("PR1", 0, "mm")
End Try
p.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 Try

Try
 prop = customPropertySet.Item("PR1")
Catch
 customPropertySet.Add(" ","PR1")
End Try

Try
 prop = customPropertySet.Item("PR1-M")
Catch
 customPropertySet.Add(" ","PR1-M")
End Try

Try
 prop = customPropertySet.Item("R1")
Catch
 customPropertySet.Add(" ","R1")
End Try

Try
 prop = customPropertySet.Item("R1-M")
Catch
 customPropertySet.Add(" ","R1-M")
End Try