DisabChg

dim vTextDummy$
Global Const WM_USER = &H400
Global Const EM_SETREADONLY = (WM_USER + 31)

Declare Function SendMessage Lib "User" (ByVal hWnd As Integer ByVal _
wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long

'to disable the textbox do

SendMessage(Text1.hWnd, EM_SETREADONLY, 1, 0)