1 files changed, 18 insertions, 0 deletions
diff --git a/windows 95/Windows2000.vb b/windows 95/Windows2000.vb
index 2788cae..6929fa4 100755
--- a/windows 95/Windows2000.vb
+++ b/windows 95/Windows2000.vb
@@ -35,6 +35,8 @@
         Me.desktopicons.BackgroundImage = bmp
         commandpromptstartup.Start()
         comn = 100
+        desktopicons.AutoArrange = False
+        desktopicons.AllowDrop = True
     End Sub
 
     Private Sub NotePadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotePadToolStripMenuItem.Click
@@ -400,4 +402,20 @@
         opentime.Show()
         startmenu.Hide()
     End Sub
+
+    Private Sub desktopicons_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles desktopicons.ItemDrag
+        Dim lvi As ListViewItem = CType(e.Item, ListViewItem)
+        desktopicons.DoDragDrop(New DataObject("System.Windows.Forms.ListViewItem", lvi), DragDropEffects.Move)
+    End Sub
+    Private Sub desktopicons_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles desktopicons.DragEnter
+        If e.Data.GetDataPresent("System.Windows.Forms.ListViewItem") Then
+            e.Effect = DragDropEffects.Move
+        End If
+    End Sub
+    Private Sub desktopicons_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles desktopicons.DragOver
+        Dim lvi As ListViewItem = CType(e.Data.GetData("System.Windows.Forms.ListViewItem"), ListViewItem)
+        Dim Offset As Size = Size.Subtract(Cursor.Size, New Size(Cursor.HotSpot.X, Cursor.HotSpot.Y))
+        lvi.Position = Point.Subtract(desktopicons.PointToClient(New Point(e.X, e.Y)), Offset)
+        e.Effect = DragDropEffects.Move
+    End Sub
 End Class
 \ No newline at end of file