本示例在消息框中显示剪切或复制模式的状态。

Select Case Application.CutCopyMode

Case Is = False

MsgBox "Not in Cut or Copy mode"

Case Is = etCopy

MsgBox "In Copy mode"

Case Is = etCut

MsgBox "In Cut mode"

End Select