*/ --------------------------------------------------------------------------------------
*/ 出自： 编程中国 http://www.bc-cn.net
*/ 作者： lsegale
*/ 时间： 2007-7-20 编程论坛首发
*/ 声明： 尊重作者劳动，转载请保留本段文字
*/ --------------------------------------------------------------------------------------

请问如何解决ListView闪烁的问题：【测试代码如下】：
Private Sub SSTab1_Click(PreviousTab As Integer)
Dim i As Integer
For i = 1 To SSTab1.Tabs
Select Case SSTab1.Tab
Case i
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , SSTab1.Caption, 1800
Case 0
ListView1.ColumnHeaders.Clear
With ListView1
.ColumnHeaders.Clear
'加入列首
.ColumnHeaders.Add , , "联系人", 800
.ColumnHeaders.Add , , "决策级别", 1000
.ColumnHeaders.Add , , "部门", 800
.ColumnHeaders.Add , , "职务", 800
.ColumnHeaders.Add , , "办公电话", 1800
.ColumnHeaders.Add , , "传真", 1200
.ColumnHeaders.Add , , "电邮", 1200
.ColumnHeaders.Add , , "手机", 1200
.ColumnHeaders.Add , , "性别", 600
.ColumnHeaders.Add , , "籍贯", 600
.ColumnHeaders.Add , , "地址", 1800
.ColumnHeaders.Add , , "生日", 800
.ColumnHeaders.Add , , "家庭电话", 1200
.ColumnHeaders.Add , , "性格特点", 1200
.ColumnHeaders.Add , , "备注", 1800
End With
End Select
Next i
End Sub

奇怪的是为什么.add方法在显示的时候会出现闪烁？如何解决？