Listbox: code

Om een item toe te voegen door een druk op de knop:
If Not txtAdd.Text = "" Then lstList.AddItem txtAdd.Text
txtAdd.Text = "" ' het vak leegmaken.
Om het geselecteerde item te verwijderen.
lstList.RemoveItem lstList.ListIndex
lblDisplay.Caption = ""
cmdDelete.Enabled = False
Natuurlijk mag die knop niet toegankelijk zijn als er niets geselecteerd is. We kunnen dat bv. doen als de gebruiker ietrs intikt in het vak om een item toe te voegen.
cmdDelete.Enabled = False
Om te tonen wat er geselecteerd is gebruiken we:
lblDisplay.Caption = "Geselecteerd: " & vbCrLf & lstList.List(lstList.ListIndex)
cmdDelete.Enabled = True