'右ボタンでのドラッグのときはファイルのコピー Dim MydataObject As New DataObject Dim strFileList As New System.Collections.Specialized.StringCollection 'ListViewの選択されている各Itemについて For Each LVItem As ListViewItem In Me.ListView1.SelectedItems strFileList.Add(LVItem.SubItems(4).Text) Next MydataObject.SetFileDropList(strFileList) ListView1.DoDragDrop(MydataObject, DragDropEffects.Copy)