slet flere filer

hey.. jeg har denne kode:

---

'...flere Sub's før her...

Private Sub CmdDelFile_Click()
file = File1.Path & "\" & File1.FileName
Kill (file)
File1.Refresh
End Sub

Private Sub File1_DblClick()
file = File1.Path & "\" & File1.FileName
Kill (file)
File1.Refresh
End Sub

'...flere Sub's før her...

---

mit problem er.... jeg skal lave det sådan at jeg kan slette filer fra en liste.... ved tryk af knap (hvis det er flere filer) og dobbelt klik (for hurtig og enkelt slet).... jeg har listboxen som "MultiSelect = 2", og det virker fint... men når jeg så trykker slet, sletter den kun én fil.... hvordan er det lige man gør for at slette alle de markerede filer på en gang?

//WebPsycho