public sub changepartlist()
dim oapp as inventor.application
set oapp = thisapplication
dim odrw as drawingdocument
set odrw = oapp.activedocument
dim opartslist as partslist
set opartslist = odrw.activesheet.partslists.item(1)
dim newstyle as partsliststyle
for each newstyle in odrw.stylesmanager.partsliststyles
debug.print newstyle.name
if newstyle.name = "il mio nuovo stile" then exit for
next
opartslist.style = newstyle
end sub