Public Declare Function OpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hwnd As Integer) As Integer
Public Declare Function EmptyClipboard Lib "user32" Alias "EmptyClipboard" () As Integer
Public Declare Function CloseClipboard Lib "user32" Alias "CloseClipboard" () As Integer
Dim p As Integer
OpenClipboard(p)
If (EmptyClipboard()) Then
MessageBox.Show("清空成功")
Else
MessageBox.Show("清空失败")
End If
CloseClipboard()