Public Sub picture_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Dim paths As object() = e.Data.GetData(Windows.Forms.DataFormats.FileDrop) For Each path As object In paths FileSys.CopyFile(path, "c:\" & FileSys.GetName(path), True) Next sender.Cursor = System.Windows.Forms.Cursors.IBeam End Sub