参考一下吧
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As _
System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
' Paste the text.
'TextBox2.Text = e.Data.GetData(DataFormats.Text)
Dim MyFiles() As String
Dim i As Integer
MyFiles = e.Data.GetData(DataFormats.FileDrop)
For i = 0 To MyFiles.Length - 1
TextBox1.Text = TextBox1.Text & vbCrLf & (MyFiles(i))
Next
End Sub