Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
    element= Listbox1.SelectedItem
    ziel= Listbox2
    Listeneintrag(element,ziel)
 End Sub
 
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button2.Click
    element= Listbox1.SelectedItem
    ziel= Listbox3
    Listeneintrag(element,ziel)
 End Sub
 
 Private Sub Listeneintrag (element,ziel)
 
   ' hier kämen noch die zusätzlichen abfragen die ich sonst zweimal (für jeden 
   ' Button 1x) schreiben müsste
 
    ziel.items.add(element)
 End Sub