 As Long) As Long
Private Declare Function GetClipboardFormatName Lib "user32" Alias
 "GetClipboardFormatNameA" _
    (ByVal wFormat As Long, ByVal lpString As String, ByVal nMaxCount As Long)
     As Long
Private Declare Function GetClipboardOwner Lib "user32" _
    () As Long
Private Declare Function EmptyClipboard Lib "user32" _
    () As Long
Private Declare Function RegisterClipboardFormat Lib "user32" Alias
 "RegisterClipboardFormatA" _
    (ByVal lpString As String) As Long
Private Declare Function E