e, m_hWnd, WM_CHANGECBCHAIN
            DetachMessage Me, m_hWnd, WM_DRAWCLIPBOARD
            DetachMessage Me, m_hWnd, WM_DESTROY
            ' Take myself out of the clipboard chain:
            ChangeClipboardChain m_hWnd, m_hWndNextViewer
            Debug.Print WinAPIError(Err.LastDllError)
        End If
        m_hWnd = 0
    End If
    m_bInClipboardChangeNotification = False
End Sub

Public Function WinAPIError(ByVal lLastDLLError As Long) As String
Dim sBuff As String
Dim lCount As Long
   
   ' 