prova cosi'
Set itmX = List1.ListItems.Add(, , , "Nome Icona", "Nome Icona")