Tengo una duda en el mismo programa y está relacionado con la función eliminar.
Tengo un label que cuenta cada elemento a medida que voy ingresandolos al listbox.
Y al seleccionar un item y eliminarlo, 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:
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
Button2.Enabled = True
For i = 1 To ListBox1.Items.Count
Label2.Text = "Elementos: " & i & ""
Next
Código botón eliminar:
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