Private Sub Form_Load()

Dim say

For say = 0 To File1.ListCount - 1

File1.Selected(Val(say)) = True

Next

End Sub
Baksana59
__________________