1 Textbox
1 Panel
1 Picturebox
1 Listbox

- Textbox , panel ve listbox'ın allowdroplarını "true" yapın.

Kod:
Public Class Form1 Private Sub TextBox1_DragDrop(sender As Object, e As DragEventArgs) Handles TextBox1.DragDrop Dim path As String() = CType(e.Data.GetData(DataFormats.FileDrop), String()) For Each filename As String In path TextBox1.Text = filename Next End Sub Private Sub TextBox1_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy End If End Sub Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop Dim path As String() = CType(e.Data.GetData(DataFormats.FileDrop), String()) For Each filename As String In path ListBox1.Items.Add(filename) Next End Sub Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy End If End Sub Private Sub Panel1_DragDrop(sender As Object, e As DragEventArgs) Handles Panel1.DragDrop Dim path As String() = CType(e.Data.GetData(DataFormats.FileDrop), String()) For Each filename As String In path PictureBox1.ImageLocation = filename PictureBox1.SizeMode = PictureBoxSizeMode.Zoom Next End Sub Private Sub Panel1_DragEnter(sender As Object, e As DragEventArgs) Handles Panel1.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy End If End Sub End Class

__________________