Código (vb) [Seleccionar]
Sub BuscarItem(list As ListBox, strBuscar As String) 'Procedimiento de buscar y Elminar Item
Dim i As Integer
For i = 0 To list.ListCount - 1
If list.list(i) = strBuscar Then 'Comparacion Items & String a Buscar
list.RemoveItem i 'Elminar Item
End If
Next
End Sub
Metodo de Uso:
Código (vb) [Seleccionar]
Call BuscarItem(lsbItems, txtBuscar.Text)