•Private
Sub lstOxys_SelectedIndexChanged(...)
• Handles lstOxys.SelectedIndexChanged
• txtSelected.Text =
CStr(lstOxys.SelectedItem)
•End
Sub
•Private
Sub btnAdd_Click(...) Handles btnAdd.Click
• Dim item As String
• item = InputBox("Item to
Add:")
• lstOxys.Items.Add(item)
•End
Sub
•Private
Sub lstOxys_DoubleClick(...)
• Handles lstOxys.DoubleClick
•
lstOxys.Items.RemoveAt(lstOxys.SelectedIndex)
• txtSelected.Clear()
•End Sub