KeyDown事件
If e.Control = True AndAlso e.KeyCode=Keys.V Then vars("粘贴") = TrueElse vars("粘贴") = False End If
KeyPressEdit事件
If vars("粘贴") Then e.cancel = TrueEnd If