テキストボックスのMaxLength制御
'フォームにテキストボックスを貼り付けて実行する
Option Explicit
Private Declare Function SendMessage Lib
"user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long,
_
ByVal wParam As Long, lParam As Long) As
Long
Private Const EM_LIMITTEXT = &HC5
Private Sub Form_Load()
'5バイトに制限
SendMessage Text1.hwnd, EM_LIMITTEXT, 5,
0
End Sub