请教怎么解决ListView闪烁的有关问题[分不多，路过的帮帮小弟我吧]

请问如何解决ListView闪烁的问题[分不多，路过的帮帮我吧]
请问如何解决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