lW As Long
Dim lH As Long
Dim iKeyCode As Integer
      
   Select Case iMsg
   Case WM_CTLCOLORLISTBOX
      If (m_hBackBrush &lt;&gt; 0) Then
         ISubclass_WindowProc = m_hBackBrush
      End If
      
   Case WM_MEASUREITEM
       ISubclass_WindowProc = plMeasureItem(wParam, lParam)

   Case WM_DRAWITEM
       ISubclass_WindowProc = plDrawItem(wParam, lParam)

   Case WM_COMMAND
      If (plNotificationEvent(hwnd, iMsg, wParam, lParam) &lt;&gt; 0) Then
         ISubclass_WindowProc = 1
      End If
