禁止编辑框粘贴内容功能

如果存在什么问题，或者需要改进，可否告诉我呢？

.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (功能键状态 ＝ #Ctrl键状态 且 键代码 ＝ #V键)
返回 (假)
.如果真结束


.子程序 _编辑框1_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

返回 (假)