本示例在消息框中显示剪切或复制模式的状态。
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