Public Sub SetDropdownWidth(cbo As Control, NewWidthPixel As Long)
Dim Ret As Long

Ret = SendMessage(cbo.hwnd, CB_SETDROPPEDWIDTH, NewWidthPixel, 0)

End Sub