Private Sub bDelete_Click()
Dim i As Integer
    For i = 0 To Me.cAnswered.ListCount - 1
        If Me.cAnswered.Selected(i) = True Then
            'MsgBox i
            'Stop
            Me.cAnswered.RemoveItem i
            Exit For
        End If
    Next
    Me.bDelete.Visible = (Me.cAnswered.ListCount > 0)
End Sub