Private Const CF_TEXT As Long = 1
Private Const GMEM_MOVEABLE As Long = &H2
Private Const GMEM_DDESHARE As Long = &H2000
 
Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hWnd As Long) As _
  Long
 
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
 
Private Declare Function GetClipboardData Lib "user32.dll" (ByVal wFormat As _
  Long) As Long
 
Private Declare Function EmptyClipboard Lib "user32.dll" () As Long
 
Private Declare Function GlobalLock Lib "kernel32.dll" (ByVal hMem As Long) As _
  Long
 
Private Declare Function GlobalUnlock Lib "kernel32.dll" (ByVal hMem As Long) _
  As Long
 
Private Declare Function GlobalSize Lib "kernel32.dll" (ByVal hMem As Long) As _
  Long
 
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" _
   (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
 
Private Declare Function GlobalAlloc Lib "kernel32.dll" (ByVal wFlags As Long, _
  ByVal dwBytes As Long) As Long
 
Private Declare Function SetClipboardData Lib "user32.dll" (ByVal wFormat As _
  Long, ByVal hMem As Long) As Long
 
 
Public Function GetGlobalText(ByVal hWnd As Long) As String
    Dim hMem As Long
    Dim hPtr As Long
    Dim sClip As String
    Dim nSize As Long
 
    OpenClipboard hWnd
    hMem = GetClipboardData(CF_TEXT)
    If hMem > 0 Then
       nSize = GlobalSize(hMem)
       hPtr = GlobalLock(hMem)
       sClip = Space(nSize)
       CopyMemory ByVal StrPtr(sClip), ByVal hPtr, nSize
       GetGlobalText = StrConv(sClip, vbUnicode)
       GlobalUnlock hMem
    End If
 
    CloseClipboard
End Function
 
Public Sub SetGlobalText(ByVal hWnd As Long, ByVal sTxt As String)
    Static hMem As Long
    Dim hPtr As Long
    Dim sClip() As Byte
    Dim nSize As Long
 
    OpenClipboard hWnd
    EmptyClipboard
 
    hMem = GlobalAlloc(GMEM_MOVEABLE Or GMEM_DDESHARE, Len(sTxt) + 1)
    If hMem > 0 Then
       hPtr = GlobalLock(hMem)
       sClip() = StrConv(sTxt, vbFromUnicode)
       CopyMemory ByVal hPtr, ByVal VarPtr(sClip(0)), Len(sTxt) + 1
       SetClipboardData CF_TEXT, hMem
       GlobalUnlock hMem
    End If
 
    CloseClipboard
End Sub