Solved by me looking up through some sites. I dont know why i couldn't find them earlier!
Private Sub dropdpanel_DragEnter(sender As Object, e As DragEventArgs) Handles dropdpanel.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.All
End If
End Sub
Private Sub dropdpanel_DragDrop(sender As Object, e As DragEventArgs) Handles dropdpanel.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim MyFiles() As String
MyFiles = e.Data.GetData(DataFormats.FileDrop)
filepathname = MyFiles(0)
End If
End Sub