MULTIPLE ITEM LISTBOX

I know that I ask this question ..
But I've lost it and I can't find it..
so.:
What is the command to delete multiple item in the same time in a
list box whit multiple selection proprity ???



#2----------------------------------------------------
And how can I do the difference between if the box is selecte or checked if I put the check box proprity ??

Q1:

Code:

---

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
    On Error Resume Next
    Dim i As Integer
    With List1
        For i = .ListCount - 1 To 0 Step -1
            If .Selected(i) Then
                .RemoveItem (i)
            End If
        Next
    End With
End If

---

Q2:

Code:

---

Private Sub Command1_Click()
chk = Check1.Value
If chk <> 0 Then
  MsgBox "Checked"
Else
  MsgBox "Unchecked"
End If
End Sub

---