怎么用SendMessage来产生窗体的OLECompleteDrag事件
SendMessage 的几个参数hwnd wMsg wParam lParam
请问wMsg为什么时产生OLECompleteDrag事件

[解决办法]
比如你拖一个文件和一部分文字到某个窗口放开后，就会发生OLECompleteDrag事件
wMsg是消息，而不是事件
[解决办法]
是啊，窗体或UserControl产生OLECompleteDrag事件，或用Subclass去监视这一消息。

Case TVN_BEGINDRAGA, TVN_BEGINDRAGW
CopyMemory uNMTV, ByVal lParam, Len(uNMTV)
m_lhNodeDrag = uNMTV.itemNew.hItem
If (m_lhNodeDrag > 0) Then
m_bNodeDragging = True
SendMessageLongA m_lTVHwnd, TVM_SELECTITEM, TVGN_CARET, m_lhNodeDrag
UserControl.OLEDrag
End If

[解决办法]
....................................