         iOrder = m_iOrder(m_iDragging)
            For j = m_iDragging To i + 1 Step -1
               m_iOrder(j) = m_iOrder(j - 1)
            Next j
            m_iOrder(i) = iOrder
         End If
         paintIcons
      End If
   End If
   '
End Sub

Private Sub picDragDrop_OLEDragOver(Data As DataObject, Effect As Long, Button
 As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
   '
   Dim b() As Byte
   On Error Resume Next
   b = Data.GetData(&amp;HFFFFB045)
   Dim s As Str