Drag Drop File Text ke TextBox

Fungsi code ini yaitu, Membaca isi File TXT ke TextBox dengan cara Drag Drop

Asset : 1 TextBox

'Masukan kode ini di Form

Private _DraggingFileName As String

'Masukan Kode ini di TextBox dengan Event DragDrop
 Me.TextBox1.Text = My.Computer.FileSystem.ReadAllText(_DraggingFileName)

'Masukan Kode ini di TextBox dengan Event DragLeave
 _DraggingFileName = String.Empty



'Masukan kode ini di TetBox dengan Event DragOver
If _DraggingFileName = String.Empty Then 'only do this once
            Dim s As String
            _DraggingFileName = String.Empty
            For Each s In e.Data.GetFormats
                Select Case s
                    Case "FileNameW" 'this returns the full filename as an array of strings
                        Dim o As Object = e.Data.GetData(s)
                        If TypeOf o Is String() Then
                            _DraggingFileName = o(0)
                            'Is it a Text File
                            If _DraggingFileName.ToLower.EndsWith(".txt") Then
                                e.Effect = DragDropEffects.Copy
                            Else 'if not then reset the draggingfilename variable
                                e.Effect = DragDropEffects.None
                                _DraggingFileName = String.Empty
                            End If
                        Else
                            e.Effect = DragDropEffects.None
                        End If
                End Select
            Next
        End If