Como desmarcar (retirar a seleção) todos os itens de uma lista de uma só vez

'Este exemplo mostra como desmarcar (retirar a seleção) todos 
'os itens de uma ListBox de uma só vez

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

    'desmarca todos os itens da lista de uma só vez
    If ListBox1.SelectionMode <> SelectionMode.One Then
      For i As Integer = 0 To ListBox1.Items.Count - 1 Step 1
        ListBox1.SetSelected(i, False)
      Next
    End If

  End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    'Adiciona quatro itens à lista
    ListBox1.Items.Add("Goiânia")
    ListBox1.Items.Add("São Paulo")
    ListBox1.Items.Add("Cuiabá")
    ListBox1.Items.Add("Rio de Janeiro")

    'define o modo de seleção como MultiExtended
    ListBox1.SelectionMode = SelectionMode.MultiExtended

    ' seleciona todos os itens da lista
    If ListBox1.SelectionMode <> SelectionMode.One Then
      For i As Integer = 0 To ListBox1.Items.Count - 1 Step 1
        ListBox1.SetSelected(i, True)
      Next
    End If

  End Sub
End Class