Listbox

Para el siguiente ejemplo colocar los siguientes controles en un formulario como está en la imagen:
 
[pic]
 
Un control Label1 y en el Caption escribir "Nombre". Un Command1 y en el Caption"Añadir". Al Command2 "Eliminar Seleccionado". Luego agrega un Text1 al lado del control Label1 y un control List1.
El elemento que escribamos en el Text1, cuando se presione " Añadir " se agregará alcontrol List1, cuando presionemos el Command2 se eliminará de la lista el elemento que se encuentre seleccionado.
 
Colocar el código en el formulario:
Private Sub Command1_Click()
If Text1 = "" Then   MsgBox "Debe ingresar un nombre para poder agregar un elemento", vbQuestion + vbOKOnly, "Datos incompletos"
   'Salimos de la rutina ya que no se ha ingresado nada en el control text1
   ExitSub
End If

'Agregamos el contenido del Text1 en el control List1
List1.AddItem Text1
End Sub

Private Sub Command2_Click()
'Si la lista no está vacía entonces podemos eliminar
IfList1.ListIndex -1 Then
   'Eliminamos el elemento que se encuentra seleccionado
   List1.RemoveItem List1.ListIndex
End If
End Sub
 
En el ejemplo anterior cuando se presiona añadir, antes de utilizar elmétodo AddItem para añadir el contenido del Text1, se comprueba mediante un IF que el Text1 no está vacío. Si está vacío se muestra un mensaje de error y se sale de la rutina mediante Exit sub. Si seha ingresado algún texto, ignora la cláusula IF Then y ejecuta la línea que añade el Item.
En el botón de Eliminar el elemento seleccionado se utilizan una propiedad que no se comentó llamadaListIndex. Esta propiedad nos devuelve el número del elemento que se encuentra seleccionado actualmente. Cuando el ListBox no tiene ningún elemento seleccionado, el valor de ListIndex es de -1. Para que node error al querer eliminar un elemento que no se encuentre seleccionado, primero debemos comprobar que el valor de ListIndex es distinto a -1, por ejemplo
If List1.ListIdex -1 Then ....
Si el...