一个listview控件有5列，我想删除其中的第2和第4列（包括lv的Head和Item），怎么实现啊？

[am2002cnfj]

如题，我都急死了

[Hassle]

Option Explicit

Private Sub Command1_Click()
With ListView1.ColumnHeaders
.Remove 4
.Remove 2
End With
End Sub

Private Sub Form_Load()
Dim i As Long
Dim j As Long
Dim LI As ListItem

With ListView1
.View = lvwReport
For i = 1 To 8
.ColumnHeaders.Add , , "Col" & i
Next
For i = 1 To 4
Set LI = .ListItems.Add(, , "Cell(" & i & ",1" & ")")
For j = 2 To 8
LI.ListSubItems.Add , , "Cell(" & i & "," & j & ")"
Next
Set LI = Nothing
Next
End With
End Sub

我没理解错吧

[fj182]

ListView1.ColumnHeaders.Remove 2
ListView1.ColumnHeaders.Remove 4

[fxy_2002]

2楼正解。
3楼的不行：当你移除2后，第5列会变成第4列（如果有的话，没有则出错）。这类移除操作要从反向开始