Actualizar Label

[Lain0x]

Esto es en visual studio 2008.

Tengo un label que cuenta cada elemento a medida que voy ingresandolos al listbox con un botón.

Y al seleccionar un item y eliminarlo (con otro botón), el label muestra los elementos que ha contado hasta ahora, pero no se va actualizando. Traté de hacer un For hacia atrás en el botón eliminar, aplicandolo de la misma forma como hice el contar los items ingresados, pero no muestra nada.

Código del Botón ingresar:

Código:

ListBox1.Items.Add(TextBox1.Text)
            TextBox1.Text = ""
            Button2.Enabled = True
            For i = 1 To ListBox1.Items.Count
                Label2.Text = "Elementos: " & i & ""
            Next

Código:

Dim a As Integer
        If ListBox1.Items.Count = 0 Then

        ElseIf ListBox1.SelectedIndex <> -1 Then
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
            For a = ListBox1.Items.Count To 1 Step -1
                Label2.Text = "Elementos: " & a & ""
            Next
        End If