手动将项目添加到Listview。

从组件中选择Microsoft Windows公共控件6.0（SP6）

将ListView控件添加到窗体。

将2个ImageList控件添加到窗体。

将一些位图添加到两个图像列表。

从列表视图控件的属性托盘中的“图像列表”选项卡中，将图像列表的名称设置为“普通”和小图标“图像列表”。

添加一个组合框。

将此示例代码添加到表单

============================

Private Sub Combo1_Click()
LV1.View = Combo1.ListIndex
End Sub 
Private Sub Form_Load()
Dim C As ColumnHeader
Dim i As Integer
For i = 1 To 4
Set C = LV1.ColumnHeaders.Add()
C.Text = "Field" & i
C.Width = LV1.Width / 4
Next i 
Dim li1 As ListItem
Set li1 = LV1.ListItems.Add()
li1.Text = "Item 1"
li1.Icon = 4
li1.SmallIcon = 1
LV1.ListItems(1).ListSubItems.Add , , "Field2"
LV1.ListItems(1).ListSubItems.Add , , "Field3"
LV1.ListItems(1).ListSubItems.Add , , "Field4" 
Dim li2 As ListItem
Set li2 = LV1.ListItems.Add()
li2.Text = "Item 2"
li2.Icon = 4
li2.SmallIcon = 1
LV1.ListItems(2).ListSubItems.Add , , "Field2"
LV1.ListItems(2).ListSubItems.Add , , "Field3"
LV1.ListItems(2).ListSubItems.Add , , "Field4" 
Dim li3 As ListItem
Set li3 = LV1.ListItems.Add()
li3.Text = "Item 3"
li3.Icon = 4
li3.SmallIcon = 1
LV1.ListItems(3).ListSubItems.Add , , "Field2"
LV1.ListItems(3).ListSubItems.Add , , "Field3"
LV1.ListItems(3).ListSubItems.Add , , "Field4" 
With Combo1
.AddItem "Icon View"
.AddItem "Small Icon View"
.AddItem "List View"
.AddItem "Report View"
End With 
End Sub  

From: https://bytes.com/topic/visual-basic/insights/725004-adding-items-listview-manually