vb6问题：请教如何在listview中实现前面的图标闪动（动画）？

Question

请教如何在listview中实现前面的图标闪动（动画）？
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

Answer 1

VB6的listview应该不支持GIF动画。在treeview中曾用轮换的办法实现，但是在listview中是如何实现这种轮换的呢？

Answer 2

listview绑定imagelistPrivate Sub LV1_Click()
If Timer1.Enabled = True Then Timer1.Enabled = False Else Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
If LV1.SelectedItem.SmallIcon = 1 Then
LV1.SelectedItem.SmallIcon = 2
Else
LV1.SelectedItem.SmallIcon = 1End If
End Sub

Answer 3

比如listview1中有10条这样，让第1和第4和第5个作动画变化，怎么做呢？

Answer 4

这个问题可简化为选择listview指定行，然后用同样的方法进行图标变化。
LV1.ListItems(7).        '第七行
LV1.SelectedItem.         '选定行大概这个样子这么小的变化，先要自己动动脑啊

Answer 5

LV1.SelectedItem.         '选定行属性的使用无效，这是什么原因啊？