
   Case WM_DRAWCLIPBOARD
      ' the content of the clipboard has changed.
      ' We raise a ClipboardChanged message and pass the message on:
      RaiseEvent ClipboardChanged
      If (m_hWndNextViewer &lt;&gt; 0) Then
         SendMessageByLong m_hWndNextViewer, iMsg, wParam, lParam
      End If
      ISubclass_WindowProc = 0
   
   Case WM_DESTROY
      StopClipboardChangeNotification
      
   End Select
   
End Function

Private Property Get ISubclass_MsgResponse() As EMsgResponse
   ISubclass_MsgRe