比如让第1和第5行前面的图片轮换闪动,像QQ来信息一样的,怎么做。求详细的代码。Function showData()    lv1.ColumnHeaders.Add , , mdbname 'Reco("供应商编号")
    lv1.View = lvwReport '以图表方式显示,显示头部标题栏
    lv1.Width = 2800 '设置总控件宽度
lv1.ColumnHeaders.Item(1).Width = 2800 '设置第1行的列宽
    If Reco.BOF Then Reco.MoveFirst
    For b = 0 To conpag
        If Not Reco.EOF Then
             lv1.ListItems.Add , "a" & Reco("ID"), Reco(sjb), , 1  '将数据表内容加入到listview中
             lv1.ToolTipText = Reco(sjb)
            Reco.MoveNext
        End If
    Next
End Function