Ciao, devi mettere il tutto nell'evento KeyDown
codice:
Private Sub List_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyDelete Then
      List.RemoveItem (List.ListIndex)
   End If
End Sub