End If
   
End Function
Private Function plMeasureItem(ByVal wParam As Long, ByVal lParam As Long) As
 Long
Dim tMIs As MEASUREITEMSTRUCT
   CopyMemory tMIs, ByVal lParam, Len(tMIs)
   tMIs.itemWidth = m_lIconWidth + 4
   tMIs.itemHeight = m_lIconHeight + 4
   CopyMemory ByVal lParam, tMIs, Len(tMIs)
   plMeasureItem = 1
End Function
Private Function plDrawItem(ByVal wParam As Long, ByVal lParam As Long) As Long
Dim tDis As DRAWITEMSTRUCT
Dim bEnabled As Boolean
Dim bSelected As Boolean
Dim hBrBack As Long
