不知控件的名字有没有都一致了，这是大问题~~~~~虽然这段代码有点不尽人意。。。

[此贴子已经被作者于2007-10-6 19:46:11编辑过]

程序是照书打了，
那控件呢？ 有一个不漏的添加吗？
添加了控件的name有与程序一致吗？

宁信书不如无书!

发个提示错误上来看看

我试过了可以运行的啊

另外下面的代码我个人觉得最好放在form的mousmove中比较好

If txtNoteEdit.seltxt <> "" Then
copy.Enabled = True
cut.Enabled = True
paste.Enabled = False
Else
copy.Enabled = True
cut.Enabled = True
paste.Enabled = False
End If