声明： 
　　Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" ( 

　　ByVal hwnd As Long, ByVal Msg As Long, 

　　ByVal wParam As Long, ByVal lParam As Long) As Long 

　　Private Const CB_GETDROPPEDWIDTH = &H15F 

　　Private Const CB_SETDROPPEDWIDTH = &H160 

　　Private Const CB_ERR = -1 

函数： 
　　’ 取得 Combo 下拉的宽度 

　　’ 可以利用该函数比例放大或缩小宽度 

　　Public Function GetDropdownWidth(cboHwnd As Long) As Long 

　　Dim lRetVal As Long 

　　lRetVal = SendMessage(cboHwnd, CB_GETDROPPEDWIDTH, 0, 0) 

　　If lRetVal <> CB_ERR Then 

　　GetDropdownWidth = lRetVal 

　　’单位为 pixels 

　　Else 

　　GetDropdownWidth = 0 

　　End If 

　　End Function 

　　’设置 Combo 下拉的宽度 

　　’单位为 pixels 

　　Public Function SetDropdownWidth(cboHwnd As Long, NewWidthPixel As Long) 

　　As Boolean 

　　Dim lRetVal As Long 

　　lRetVal = SendMessage(cboHwnd, CB_SETDROPPEDWIDTH, NewWidthPixel, 0) 

　　If lRetVal <> CB_ERR Then 

　　SetDropdownWidth = True 

　　Else 

　　SetDropdownWidth = False 

　　End If 

　　End Function