<code>Private Sub List2_OLEDragDrop(Data As DataObject, Effect As Long, _
  Button As Integer, Shift As Integer, X As Single, Y As Single)
 
  <font color=green>' Eintrag aus Listbox 1 nach Listbox 2 kopieren</font>
  List2.AddItem List1.List(List1.ListIndex)
 
  <font color=green>' Eintrag aus Listbox 1 löschen</font>
  <font color=green>' (nur wenn Einträge per Drag & Drop verschoben 
  ' werden)</font>
  <font color=green>' List1.RemoveItem List1.ListIndex</font>
End Sub</code>