For the first question:
Put the following code in your program.

Code:
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
   If List1.ListIndex <> -1 Then
      List1.RemoveItem List1.ListIndex
   End If
End If
End Sub