Anular selección de un listbox

 Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1
            If ListBox1.GetSelected(i) = True Then
                ListBox1.SetSelected(i, False)
            End If
        Next