Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TextBox1.AllowDrop = True
        AddHandler TextBox1.DragEnter, AddressOf Me.TextBox_DragEnter
        AddHandler TextBox1.DragDrop, AddressOf Me.TextBox_DragDrop
 
    End Sub
 
    Private Sub TextBox_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs)
        DirectCast(sender, TextBox).Text = CType(e.Data.GetData( _
        DataFormats.FileDrop), Array).GetValue(0).ToString
    End Sub
 
    Private Sub TextBox_DragEnter(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.DragEventArgs)
        e.Effect = DragDropEffects.Link
    End Sub