File1.Enabled=false ' deaktiviert die Liste und färbt die Einträge grau

Picturebox1.Enabled=false ' deaktiviert die Picturebox, dadurch können
                          ' die darin enthaltenen Controls nicht fokusiert 
                          ' werden

Private Sub Deselect()
  If File1.ListCount = 0 Then Exit Sub
  Dim I As Long
  For I = 1 To File1.ListCount
    File1.Selected(I - 1) = False
  Next I
End Sub
 
Private Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 32 Then KeyCode = 0
  Deselect
End Sub
 
Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  Deselect
End Sub

Viel Spass,
R@lf