At the same time, after the copy/paste operation, only the "Paste" menu item is required to be available. Thank you! "

It seems a bit strange that you can't "cut" and "copy" after doing this! !

Option explicit

Private Sub-Form _Load ()

Cut menu. Enabled = true

Copy menu. Enabled = true

Paste menu. Enabled = False

End joint

Private child copy menu _Click ()

Clipboard. clear

Clipboard. SetText 1. SelText，ClipBoardConstants.vbCFText

Paste menu. Enabled = true

Cut menu. Enabled = False

Copy menu. Enabled = False

End joint

Private sub-cut menu _Click ()

Clipboard. clear

Clipboard. SetText 1. SelText，ClipBoardConstants.vbCFText

Text 1。 SelText = " "

Paste menu. Enabled = true

End joint

Private sub-paste menu _Click ()

Darken a as a string.

A = clipboard. GetText(clipboard constants . vbcftext)

Text 1。 SelText = a

Cut menu. Enabled = False

Copy menu. Enabled = False

Paste menu. Enabled = true

End joint