VB中怎么清空listview中的东西

用ListView.ListItems.Clear清空所有项目；用ListView.ColumnHeaders.Clear清空表头。
示例代码如下：
（1）新建一个VB6工程
（2）在Form1窗体布置一个ListView和一个Command

（3）窗体代码
Option Explicit

Private Sub Command1_Click()
With ListView1
' 清空所有项目

.ListItems.Clear
' 清空表头

.ColumnHeaders.Clear
End With
End Sub

Private Sub Form_Load()
Dim itemX As ListItem
With ListView1
' 详细列表方式显示
.View = lvwReport
'表头

.ColumnHeaders.Add , , "品名"
.ColumnHeaders.Add , , "产地"
' 添加项目
Set itemX = .ListItems.Add(, , "苹果")
itemX.SubItems(1) = "烟台"

Set itemX = .ListItems.Add(, , "香蕉")
itemX.SubItems(1) = "巴拿马"

Set itemX = .ListItems.Add(, , "柑橘")
itemX.SubItems(1) = "加洲"
End With

Command1.Caption = "清空ListView"
End Sub
（4）运行

点击“清空ListView”按钮后

ListView1.ListItems.Clear