드래그앤드롭으포 파일명표시

    Private Sub TextBox1_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
        Dim data1() As String = e.Data.GetData(DataFormats.FileDrop.ToString)

textbox1.text = data1(0)

    End Sub