Cls
   X = 4
   Y = 4
   For i = 1 To m_iCount
      m_tR(i).left = X
      m_tR(i).top = Y
      m_tR(i).right = X + 32
      m_tR(i).bottom = Y + 32
      ilsIcons.DrawImage m_iOrder(i), picDragDrop.hdc, X, Y, (i = m_iDragOver)
      X = X + 32 + 8
      If (X + 32 &gt; picDragDrop.ScaleWidth) Then
         X = 4
         Y = Y + 32 + 8
      End If
   Next i
   
   m_cDrag.HideDragImage True
   picDragDrop.Refresh
   m_cDrag.HideDragImage False
   '
End Sub

Private Function hitTest(ByVal X As Long, ByVa