ComboBox - change width of drop down part

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

Public Sub SetComboWidth(X As ComboBox, iWidth As Long )
   SendMessage X.hwnd, &H160, iWidth, 0&
End Sub