   
   ' Draw the text into it:
   Dim hFontOld As Long
   Dim iFnt As IFont
   Dim tR As RECT
   tR.top = 2
   tR.bottom = 2
   tR.right = 126
   tR.bottom = 46
   Set iFnt = txtDragDrop.Font
   hFontOld = SelectObject(cMemDC.hdc, iFnt.hFont)
   SetBkColor cMemDC.hdc, GetSysColor(vbHighlight And &amp;H1F&amp;)
   SetTextColor cMemDC.hdc, GetSysColor(vbHighlightText And &amp;H1F&amp;)
   DrawText cMemDC.hdc, sText, -1, tR, DT_WORDBREAK Or DT_WORD_ELLIPSIS Or
    DT_TOP
   SelectObject cMemDC.hdc, hFontOld
 