vb如何实现隐藏listview某列

如何隐藏listview的列宽,将列宽设为0,但拉动列又会出现,有没有办法即可以拉动列宽又可以隐藏某列的方法

---

看看有没有拉动列宽的事件，如有，可在此将其宽度设为0

---

。listview貌似不行,换控件

---

listview 是可以的 
lvGift.ColumnHeaders.Add , "weiyi", "唯一", 宽度 （为0即隐藏，可以拉大）

---

listview1.ColumnHeaders.Add , "weiyi", "唯一", 宽度 （为0即隐藏，可以拉大）
改正一下

---

VB code:
Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList1
ListView1.ColumnHeaderIcons = ImageList1
For I = 1 To 5
ListView1.ColumnHeaders.Add , , "第" & I & "列"
Next
For I = 1 To 5
ListView1.ListItems.Add , , "第" & I & "行"
For j = 1 To 5
ListView1.ListItems(I).ListSubItems.Add , , "第" & j + 1 & "列"
Next
Next
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) '单击列头隐藏
I = ColumnHeader.Index
If I > 1 Then
ListView1.ColumnHeaders(I).Width = 0
End If
End Sub

---

我的意思不是这样,我是隐藏了某一列,拉动在该隐藏列之后其他列时,被隐藏的列是不能显示出来

---

设置了Width =0 照样可以拉开显示出来,并不是真正的隐藏

---

'模块代码：  
  Option Explicit