Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)
 
lvwname = Item   ' Hier übergebe ich eine Variable an eine andere Routine, die 
' den DS in der Datenbank löscht
 
Variable ="Listview2"
 
End Sub

dim index as integer
dim (Variable) as Control ???
 
index = Frm_start.(Variable).SelectedItem.index 
           Frm_start.(Variable).ListItems.Remove index