コンボボックスの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 CB_LIMITTEXT = &H141
Private Sub Form_Load()
'5バイトに制限
SendMessage Combo1.hwnd, CB_LIMITTEXT, 5, 0
End Sub