essage Me, m_hWnd, WM_RBUTTONDOWN
      'AttachMessage Me, m_hWnd, WM_MOUSEMOVE
      'AttachMessage Me, m_hWnd, WM_LBUTTONUP
      'AttachMessage Me, m_hWnd, WM_MBUTTONUP
      'AttachMessage Me, m_hWnd, WM_RBUTTONUP
   End If
End Sub
Private Sub pUnSubClass()
   If Not (m_hWndParent = 0) Then
      DetachMessage Me, m_hWndParent, WM_SIZE
      DetachMessage Me, m_hWndParent, WM_COMMAND
      DetachMessage Me, m_hWndParent, WM_MEASUREITEM
      DetachMessage Me, m_hWndParent, WM_DRAWITEM
      DetachMessag