Seleccionar todos los elementos...

[enocturnas]

Hola, quisiera saber si alguien conoce un método para seleccionar todos los ficheros de un FileListBox (al pulsar un botón por ejemplo) sin tener que recorrerle entero. Actualmente estoy utilizando las siguientes instrucciones pero he hecho una prueba con varios miles de ficheros y tarda mucho en seleccionarlos al tener que ir uno por uno.

Private Sub Command1_Click()
Dim cont As Integer
For cont = 0 To File1.ListCount - 1
File1.Selected(cont) = True
Next
End Sub

Gracias...