This example uses the IsClipboardDataAvailable method to determine whether there is data on the Clipboard. If True, it enables the Paste item on the Edit menu.
Private Sub mnuEdit_Click()
'This example uses the IsClipboardDataAvailable method
'to determine whether there is data on the clipboard, and if
'so, will enable the Paste menu item on the Edit menu.
Dim blnClipData As Boolean
blnClipData = ImgEdit1.IsClipboardDataAvailable
If blnClipData Then
mnuEditPaste.Enabled = True
Else
mnuEditPaste.Enabled = False
End If
End Sub