Posted on January 4, 2009
1
2
3
4
5
6
7
8
9
10
| 'Controls - How to remove an item from List box
Option Explicit
Public Sub RemoveListItem(lst As ListBox)
If lst.ListIndex = -1 Then
Call MsgBox("Please select an item to remove.", vbInformation, App.Title)
Else
lst.RemoveItem lstOutput.ListIndex
End If
End Sub |