怎样使文本框只读？

Question

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst WM_USER = &H400
Const EM_SETREADONLY = (WM_USER + 31)'使用
Dim RetVal As Long
RetVal = SendMessage(text1.hwnd, EM_SETREADONLY + 1, True, ByVal 0&)以上是让文件框只读的代码，怎么不灵呀？为什么？

Answer 1

为什么要用API？Text1.Locked=True不行么？

Answer 2

text1.locked=true
然后！：
Private Sub Text1_GotFocus()
    cmdOK.setfocus              '可以是其他任何控件！
End Sub

Answer 3

locked=true解决了我自己都@_@了，谢谢各位。