'---- Laden der Form
lvLokal.View = View.Details
lvLokal.FullRowSelect = True
lvLokal.Columns.Add("")
lvLokal.Columns(0).Width = 351
 
'---- Hinzufügen Button
lvLokal.Items.Add(DirectoryBrowser.SelectedPath)
lvLokal.Update()
 
'---- Löschen Button
Dim intItemIndex As Integer = lvLokal.FocusedItem.Index
lvLokal.Items(intItemIndex).Remove()
lvLokal.Update()