ong, Button
 As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
   '
End Sub

Private Sub txtDragDrop_OLEGiveFeedback(Effect As Long, DefaultCursors As
 Boolean)
   m_cDrag.DragDrop
End Sub

Private Sub txtDragDrop_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
   '
   ' Get the selected text:
   Dim sText As String
   sText = txtDragDrop.SelText
   
   ' Create a memory DC for adding to the ImageList:
   Dim cMemDC As New pcMemDC
   cMemDC.Width = 128
   cMemDC.Height = 48
