利用API使Text框只读

声明：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Const WM_USER = &H400
Const EM_SETREADONLY = (WM_USER + 31)
使用：
'' 例如使 TEXT1 只读
Dim RetVal As Long
RetVal = SendMessage(Text1.hwnd, EM_SETREADONLY, True, ByVal 0&)
与设置DISABLE 属性不同的是，TEXT1 只读后光标还是可以定位，并能支持多行的移动。
98-7-22 更新： 其实在 VB5 中的 Locked 属性也有类似的效果，更方便。

在 Textbox 中，录入 N 个字符后移到下栏
在 Textbox 的 Change 中加入：
IF (LEN(TEXT1)) >= N THEN
SENDKEY "{TAB}"
END IF