Listbox select all

hey ive been trying to select all the items in a listbox

I have a button and i want it to highlight all the the items in the listbox. I know it involves a loop or something but i dont know how to make it highlighted. PLEASE HELP i think my brain is gonna leak out my ears

Code:

---

Private Sub Command1_Click()
    For i = 0 To List1.ListCount - 1
        List1.Selected(i) = True
    Next
End Sub

---

PS: The ListBox has to have the MultiSelect property set to true.