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