Const EM_LIMITTEXT = &H141
Пошлите сообщение EM_LIMITTEXT задает максимальное число символов для текстового поля
' ограничим число символов текстового поля Text1. ' Поместите на форму Text1 SendMessage Text1.hwnd, _ EM_LIMITTEXT, 7, 0