Far coincidere da codice l'altezza di una ListBox con la somma delle altezze dei suoi Item

Per far sì che l'altezza dell'oggetto ListBox sia pari alla somma delle singole altezze degli Item in essa presenti, si dovrà attribuire alla sua Proprietà ".Height" il valore dell'altra sua Proprietà ".ScrollHeight".

Mostriamo un esempio pratico, nel quale, avendo una ListBox contenente 10 Item, si intende far combaciare - appunto - la sua altezza con la somma delle altezze dei suoi predetti Item:

Public Sub Form_Open()
 
 With ListBox1
   .list = ["Uno", "Due", "Tre", "Quattro", "Cinque",
            "Sei", "Sette", "Otto", "Nove", "Dieci"]
   .Height = .ScrollHeight
 End With
 
End