Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
...
OpenClipboard Me.hwnd
EmptyClipboard
SetClipboardData ...
CloseClipboard
Сейчас этот форум просматривают: AhrefsBot и гости: 10