VB中，如何将combobox下拉的显示行数变多。如下图，由默认8行改成16行或20行，求原代码，谢谢！

可增加空行，代码为：控件名称.additem " "

combobox 控件下拉框中显示的项目是根据需要添加的，如果你需要添加，在代码中自己自动添加就可以，别说是20行，就是2000行也没有问题。
例如：
Combo1.Clear    '清除控件原来的项目
For I = 1 To 500 Step 3    '步进3,1到500可以放置166个项目
Combo1.AddItem I   '对控件程序加载项目
Next I
当然仅仅是个举例，你自己需要添加什么，使用 Combo1.AddItem "项目名称" 就可以了。

[此贴子已经被作者于2017-5-1 16:23编辑过]

你好，谢谢。
我的目的细希望达到下面这样效果，点击时下拉框显示的条目更多些，如下图

首先你需要使用Microsoft Forms2.0 Object Library中的combobox
由默认8行改成16行或20行
ComboBox1.ListRows = 16
ComboBox1.ListRows = 20
例子：

Dim i As Integer
For i = 1 To 20
ComboBox1.AddItem i
Next i
ComboBox1.ListRows = 20

您好，谢谢您的回复。由于我是学硬件的，想编个小程序工作中使用，所以基础比较差。请问“Microsoft Forms2.0 Object Library中的combobox”这个怎么使用啊，我把你的代码放进去

在“部件”里，勾选添加即可！
——>
另，这个问题很简单，你可请教度娘。