Private Sub Form_Load()
' Liste füllen
    List1.AddItem "Ein Eintrag"
    List1.AddItem "Noch ein Eintrag"
    List1.AddItem "Der dritte..."
' Icon für die Drag n Drop-Operation zuweisen
    List1.DragIcon = Me.Icon
' Textbox leeren.
    Text1.Text = ""
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Leite Drag n Drop-Vorgang ein:
    List1.Drag
End Sub
 
Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
' Markierten Eintrag der Listbox in das Textfeld ziehen
    Text1.Text = List1.List(List1.ListIndex)
End Sub