*/ --------------------------------------------------------------------------------------
*/ 出自： 编程中国 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方法在显示的时候会出现闪烁？如何解决？

• 严肃性：
  不求文章要写的多么经典，但一定要是自己的原创。求助、转载、广告等其他类型帖子冒充原创者，视用户等级禁言一段时间或封ID。
  
  
• 本站首发：
  原创帖必须是本站首发，在其他站点发布以后在本论坛发布的，我们拒绝承认为原创，一律视为转载。
  
  
• 鼓励原创：
  原创帖在发布以后，管理员通过网上划词搜索辨别是否为原创，如确定为原创，只要文章不是过于简陋就会推荐为本版精华，优秀的同时收录至本站技术教程频道。