got this idea while googling
![[Image: dd12882786c3c18515db462079d01033.gif]](https://i.gyazo.com/dd12882786c3c18515db462079d01033.gif)
🤝
![[Image: dd12882786c3c18515db462079d01033.gif]](https://i.gyazo.com/dd12882786c3c18515db462079d01033.gif)
Code
Class DragDropControl
Inherits Control
Public Property Control As Control = New PictureBox 'ListBox 'TextBox
Public Sub New()
Me.AllowDrop = True
Me.Size = New Size(100, 100)
Control.Dock = DockStyle.Fill
If TypeOf Control Is TextBox Then CType(Control, TextBox).Multiline = True
If TypeOf Control Is PictureBox Then CType(Control, PictureBox).SizeMode = PictureBoxSizeMode.StretchImage
Me.Controls.Add(Control)
End Sub
Protected Overrides Sub OnDragEnter(e As DragEventArgs)
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
For Each f In e.Data.GetData(DataFormats.FileDrop)
If TypeOf Control Is TextBox Then Control.Text += f & vbCrLf
If TypeOf Control Is ListBox Then CType(Control, ListBox).Items.Add(f)
If TypeOf Control Is PictureBox Then CType(Control, PictureBox).ImageLocation = f
Next
End If
MyBase.OnDragEnter(e)
End Sub
End Class🤝



![[Image: 1zL3pDG.jpg]](https://i.imgur.com/1zL3pDG.jpg)
![[Image: vjPWhyy.gif]](https://i.imgur.com/vjPWhyy.gif)