请问老师，列表模式下使用“精确控制行的拖动行为”时，出现以下几个问题：

1、图标只能显示16x16的小图标，用lvw.Images.SmallSize = New Size(36,36) 就不显示图片了，我怀疑行距不够出不来。如何在列表模式下显示大一点的图标和文字？行距怎么改变？字体调大后粘一起比较难看。

2、出现换列时列之间的具体用什么控制，让它缩小点免得浪费空间还不好看（如下图），比想如刚好两列能显示，用代码怎么调整？

 
此主题相关图片如下：lv.png

部分代码如下：

  Dim lvws() As Winform.ListView = {lvw1,lvw2,lvw3,lvw4,lvw5,lvw6,lvw7,lvw8} \'看看我们是怎样批量设置某组控件属性的
    For Each lvw As WinForm.ListView In lvws
        lvw.View = ViewMode.List
        lvw.AllowDrag = True
        lvw.AllowDrop = True
        lvw.Images.AddSmallImage("蓄电池叉车", "蓄电池叉车16.ico") \'添加代表蓄电池叉车的图标
        lvw.Images.AddSmallImage("蓄电池牵引车", "蓄电池牵引车16.ico") \'添加代表蓄电池牵引车的图标
        lvw.Images.AddSmallImage("内燃机械", "内燃机械16.ico") \'添加代表内燃机械的图标
        \'lvw.Images.SmallSize = New Size(32,32)
    Next
    For Each dr As DataRow In DataTables("机械管理表").Select("","机械分类") 
    If  dr("机械分类") <> "其他" Then
        Dim vr As WinForm.ListViewRow = lvw1.Rows.Add()
        vr.Text = dr("装备代号")
        vr.Name = dr("装备代号") 
        vr.Font = New Font("微软雅黑",12)
        If dr("机械分类") = "蓄电池叉车" Then
            vr.ImageKey = "蓄电池叉车"
        Else If dr("机械分类") = "蓄电池牵引车" Then
            vr.ImageKey = "蓄电池牵引车"
        Else
            vr.ImageKey = "内燃机械"
        End If
    End If
    Next