如何不用API使文本框属性只读？

　　以下两种方法都可实现：
**SubText1_GotFocus()
Text1.Locked=True
EndSub
**SubText1_LostFocus()
Text1.Locked=False
EndSub
**SubText1_KeyDown(KeyCodeAsInteger,_
ShiftAsInteger)
KeyCode=0
EndSub
**SubText1_KeyPress(KeyAsciiAsInteger)
KeyAscii=0
EndSub