Select All Items In ListBox

'Add 1 ListBox to your form. Set the ListBox MultiSelect Property to '1-Simple'.
'Add few items to the Listbox's List.
'Insert the following code to your form:

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