[Resolvido]Comando para esvaziar área de transferência ao sair do form

Olá a todos do forum!
Preciso de uma ajuda para o caso abaixo:

Em meu projeto no Access 2010 tenho um botão que duplica os registros para não seja necessários digitar novamente e sim editar, mas quando o operador encerra a aplicação aparace a mensagem do office dizendo que tem uma grande quantidade de dados na área de transferência e solicita que deixe lá ou elimine-os, minha duvida é: Qual seria o comando para colocar no botão para que ao sair esvazie a área de transferência para que não apareça a mensagem do office?

Desde já obrigado!

fsousa32

Teste, não sei se funfa no 2010.

'num modulo novo e salve:

Option Explicit
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long

Public Sub LimpaAreaTransferencia()
Call OpenClipboard(0&)
Call EmptyClipboard
Call CloseClipboard
End Sub

no evento VBA ao fechar do seu formulario:

Private Sub Form_Close()
Call LimpaAreaTransferencia
End Sub

Opa! Tentarei hoje as dicas e retorno! obrigado pela ajuda

Bom dia!
Usei o exemplo do Assis e funcionou, mas coloquie o Call LimpaAreaTransferencia no botão que fecha, pois a opção de fechar o form ele não limpou, pode ser que não deu certo ao fechar pelo fato do botão estar com o comando docmd.quit

O brigado pela ajuda!

Avelino, seu exemplo estarei usando para outro projeto, mas fiquei com algumas duvidas:

Esses código vão em um módulo e depois é chamado por um botão?
Sub Colocar1()

Dim dtobj As MSForms.DataObject
Set dtobj = New MSForms.DataObject

Dim s As String
s = "Benzadeus!"
dtobj.SetText s
dtobj.PutInClipboard

End Sub

Para enviar o conteudo da área para o form como faço?

Obrigado pela ajudo e pela paciência!

Obrigado pela ajuda, minha duvida foi resolvida!