LISTVIEW怎么删除第6列之后的列

Question

LISTVIEW怎么删除第6列之后的列
If labxin.ListView1.ColumnHeaders.Count > 6 Then
For m = 6 To labxin.ListView1.ColumnHeaders.Count
labxin.ListView1.ColumnHeaders.Remove (m)
Next
End If
以上代码错在那里,提示超出索引

Answer 1

If labxin.ListView1.ColumnHeaders.Count > 6 Then 
    For m = 7 To labxin.ListView1.ColumnHeaders.Count 
        labxin.ListView1.ColumnHeaders.Remove (m) 
    Next 
End If 

Answer 2

每删除1列Cout就小1，所以应该是
while labxin.ListView1.ColumnHeaders.Count > 6
    labxin.ListView1.ColumnHeaders.Remove 6
wend