      
   Case WM_GETFONT
      ISubclass_WindowProc = m_fnt.hFont
      
   Case WM_SIZE
      lW = (lParam And &amp;HFFFF&amp;)
      lH = ((lParam \ &amp;H10000) And &amp;HFFFF&amp;)
      pResize lW, lH
      
   Case WM_KEYDOWN, WM_CHAR, WM_KEYUP
      If (plKeyEvent(hwnd, iMsg, wParam, lParam) = 1) Then
         ISubclass_WindowProc = 1
      End If

      
'   Case WM_LBUTTONDOWN, WM_MBUTTONDOWN, WM_RBUTTONDOWN
'      iButton = (Abs(iMsg = WM_LBUTTONDOWN)) * vbLeftButton + (Abs(iMsg =
 WM_RBUTTONDOWN