'添加 Microsoft Windows Common Controls 6.0 部件才能使用ListView
Dim item As ListItem

'添加表头
With ListView1
    .GridLines = True '显示网格
    .Checkboxes = True '添加复选框
    .View = lvwReport '按报表方式显示
    .ColumnHeaders.Add , "Name", "名称"
    .ColumnHeaders.Add , "Domain", "　域名"
    .ColumnHeaders.Add , "Webmaster", "管理员"
End With

'添加记录
Set item = ListView1.ListItems.Add(, "", "木子屋")
item.SubItems(ListView1.ColumnHeaders("Domain").SubItemIndex) = "mzwu.com"
item.SubItems(ListView1.ColumnHeaders("Webmaster").SubItemIndex) = "dnawo"

Set item = ListView1.ListItems.Add(, "", "手机酷酷")
item.SubItems(ListView1.ColumnHeaders("Domain").SubItemIndex) = "sjkuku.com"
item.SubItems(ListView1.ColumnHeaders("Webmaster").SubItemIndex) = "dnawo"

Dim i As Integer
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems.item(i).Checked Then
        MsgBox ListView1.ListItems.item(i).Text
    End If
Next