To determine whether the clipboard is empty or
not, count the number of formats present on the clipboard. The
IsClipboardEmpty()
function shown here does shows how:
Public Declare Function
CountClipboardFormats
Lib "user32" () As Long
Function IsClipboardEmpty()
As Boolean
IsClipboardEmpty = (CountClipboardFormats() = 0)
End Function