LimitLengtxtCombo

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Const CB_LIMITTEXT = &H141

'

' Usage :

'

SendMessage CB_LIMITTEXT, 10, 0&

'Where 10 represents the maximum length.