VB6.0 ListView控件添加数据

'添加 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