Código: Seleccionar todo

Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Declare Function CloseClipboard Lib "User32" () As Long
Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long
Declare Function EmptyClipboard Lib "User32" () As Long
Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
Declare Function SetClipboardData Lib "User32" (ByVal wFormat As Long, ByVal hMem As Long) As Long

Const GHND = &H42
Const CF_TEXT = 1
Const MAXSIZE = 4096

Function ClipBoardSet(sText As String) As Boolean
Dim hGlobalMemory As Long, lGlobalMemory As Long
Dim hMemory As Long

ClipBoardSet = False

hGlobalMemory = GlobalAlloc(GHND, Len(sText) + 1)
lGlobalMemory = GlobalLock(hGlobalMemory)
lGlobalMemory = lstrcpy(lGlobalMemory, sText)

If GlobalUnlock(hGlobalMemory) <> 0 Then Exit Function
If OpenClipboard(0&) = 0 Then Exit Function

EmptyClipboard
hMemory = SetClipboardData(CF_TEXT, hGlobalMemory)

If CloseClipboard() = 0 Then Exit Function

ClipBoardSet = True

End Function