This code in the "from" object's OLEStartDrag method did the trick.

LPARAMETERS oDataObject, nEffect
IF oDataObject.getformat(1)
   lc="["+UPPER(ALLTRIM(oDataObject.getdata(1)))+"]"
   =oDataObject.setdata(lc,1) 
ENDIF

>I have a form which contains a listbox and a memo field. I have enabled drag & drop from the listbox to the memo field so that entries in the listbox can be dragged to the memo. That works fine. But i need to intercept the drop method so that i can format the dropped text before it finally gets placed in the memo field. I've been tinkering with the memo field's OLEDragDrop method, but no joy.