class krit
private _id as integer
private _name as string
Public property Name as string
'...
end property
Public property Id as integer
'...
end property
end class 
 
class prod
private _krits as new list(of krit)
public property krits as list(of krit)
' ...
end property
end class

dim p as new prod()
p.krits.add(new krit(ID, NAME)