' Draw the icon:
   On Error Resume Next
   lLeft = tDis.rcItem.Left + (tDis.rcItem.Right - tDis.rcItem.Left -
    m_lIconWidth) \ 2
   If Not (Err.Number = 0) Then
      Debug.Print "LLEFT", Err.Number, Err.Description
      Err.Clear
   End If
   lTop = tDis.rcItem.TOp + (tDis.rcItem.Bottom - tDis.rcItem.TOp -
    m_lIconHeight) \ 2
   If Not (Err.Number = 0) Then
      Debug.Print "LTOP", Err.Number, Err.Description
      Err.Clear
   End If
   m_cIml.DrawImage tDis.itemData, tDis.hdc, lLeft, lTop
   If 