Visual Basic - como arrastro un archivo del explorador?

Necesito el codigo para lograr capturar la ruta de un archivo al arrastrar un archivo del explorador de windows a un textbox

En un formulario vacío, poné un TextBox llamado Text1 y un ListBox llamado List1. A Text1 ponele la propiedad OleDropMode a '1 - Manual'. Después agregá este código:

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim cont As Long

For cont = 1 To Data.Files.Count
List1.AddItem Data.Files.Item(cont)
Next cont
Text1.Text = Data.Files.Item(cont - 1)
End Sub

Ejecutalo y arrastrá unos archivos al TextBox. Los archivos que arrastres se van a ir agregando al ListBox y el TextBox va a mostrar el último archivo arrastrado.
Nota: este ejemplo sólo funciona en VB5 o mayor.