Mais on peut aussi faire en sorte que la liste progresse dans le bon sens des flèche.
Di la valaur "SpinButton1.Max" est fixée en fin de boucle "Listbox.Additem"
Après la boucle (En dessous du Next)
SpinButton1.Value = SpinButton1.Max
Est dans la fonction change la formule serait
Listbox1.Listindex = SpinButton1.Max - SpinButton1.Value