awText Lib "user32" Alias "DrawTextA" (ByVal hdc As
 Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal
 wFormat As Long) As Long
Private Const DT_CENTER = &amp;H1
Private Const DT_TOP = &amp;H0
Private Const DT_WORDBREAK = &amp;H10
Private Const DT_WORD_ELLIPSIS = &amp;H40000
Private m_iLastSelStart As Long
Private m_iLastSelLength As Long

Private Sub setDragState()
   On Error Resume Next
   Dim ctl As Control
   For Each ctl In Me.Controls
      If (ctl.OLEDropMode = 0) Then ' none