جرب استخدم هذا .......................
Function ClearClipboardData_clt() As Boolean
On Error GoTo err_ClearClipboardData_clt
Dim lngTemp As Long
' If clt_OpenClipboard(0&) <> 0 Then
' lngTemp = clt_EmptyClipBoard()
' lngTemp = clt_CloseClipboard()
' End If
ClearClipboardData_clt = True
exit_ClearClipboardData_clt:
Exit Function
err_ClearClipboardData_clt:
ClearClipboardData_clt = False
Resume exit_ClearClipboardData_clt
End Function