Private Sub xxxx_DragDrop(ByVal sender As Object, _
     ByVal e As System.Windows.Forms.DragEventArgs) Handles xxxx.DragDrop
 
     Dim o As DataObject = CType(e.Data, DataObject)
 
     If o.ContainsFileDropList Then
       Dim s As Specialized.StringCollection = o.GetFileDropList
       If s.Count > 0 Then
          Dim filepath As String = s(0)
        End If
     End If
End Sub