如何使用listview 里的项目间距变小

如题。从数据库中动态提取试题编号入置listview控件中，点击相应题号，调用相应试题。但是发现listview里的项目之间的间距实在是太大了，不知道怎么变小。
Set LvStBh.Icons = ImageList1
Set LvStBh.SmallIcons = ImageList1
LvStBh.BorderStyle = 0
Do While Rs.EOF = False
    stbh = Rs.Fields("sj_id")
     Set itmX = LvStBh.ListItems.Add(, , stbh, 1)
    Rs.MoveNext
Loop