File1.Selected(0) = True
File1.Selected(2) = True
...

Dim i As Integer
 
With File1
  For i = 0 To .ListCount - 1
    .Selected(i) = True
  Next i
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de