vb text控件只准选中和复制，不准输入？

text1.locked=true

不能这样设置的。不过，可以用代码来完成。
text控件叫text1.
dim a as string

触发text1_change()之前加一句：a=text1.text
例如
form1_load()
a=text1.text '记录下文本控件的内容。
当触发text1_change()时，代码如下

text1_change()
msgbox"内容不能修改",48,"出错！"
text1.text=a
endsub

搞定

keypress事件里，如果有输入让keyascii=0，那么就是取消输入，就输入不了任何东西了，不过一般不会屏蔽回车和退格
你提问怎么老不给分啊？好歹悬赏个一两分的。。。。