As RECT
   paintIcons
   
End Sub


Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As
 Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
   Effect = vbDropEffectNone
End Sub

Private Sub Form_Resize()
   On Error Resume Next
   picDragDrop.Height = Me.ScaleHeight - picDragDrop.top * 2
   txtDragDrop.Move _
      txtDragDrop.left, _
      txtDragDrop.top, _
      Me.ScaleWidth - txtDragDrop.left - 4 * Screen.TwipsPerPixelX, _
      Me.ScaleHeight - txtDragDrop.to