pboardViewer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Implements ISubclass

Private Declare Function SetClipboardViewer Lib "user32" (ByVal hWnd As Long)
 As Long
Private Declare Function ChangeClipboardChain Lib "user32" (ByVal hWnd As Long,
 ByVal hWndNext As Long) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA"
 (ByVal hWnd As Long, ByVal wMsg As Long, ByVal w