Limit the amount of text entered into a combobox. Much like the Textbox's MaxLength property.
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 Private Sub LimitComboText(cbo As ComboBox, lngLength As Long) SendMessage cbo.hwnd, CB_LIMITTEXT, lngLength, 0& End Sub
