Private Sub Timer1_Timer()
    ctListBar1.ItemPicture(1, 1).Handle
    ctListBar1.ItemPicture(1, 1).Height
    ctListBar1.ItemPicture(1, 1).hPal
    ctListBar1.ItemPicture(1, 1).Render
    ctListBar1.ItemPicture(1, 1).Type
    ctListBar1.ItemPicture(1, 1).Width
   
End Sub


我只是想让图片移动起来。。但是这几个参数我都实验了下。。实在不能让它动下
只能让它消失  ctListBar1.ItemPicture(1, 1)=nothing
但是不能保存让它重新显示！。。而且没有visible属性！
真郁闷。。。。

偶估计是用ctListBar1.ItemPicture(1, 1).Render
来实现。。说下里面的参数
ctListBar1.ItemPicture(1, 1).Render（hde as long,X as long,Y as long,cx as long ,cy as long ,xSre as ole_xpos_HTMETRIC,ySre as ole_ypos_HTMETRIC,cxSre as as ole_xsize_HTMETRIC,cySre as as ole_ysize_HTMETRIC,prenbounds as any)
。。。。麻烦看看。。。

是个第3方控件（类QQ垂直菜单）

偶把那个控件上传了上来

估计让这个上边的控件上的图片动起来太麻烦用时间控件实现了图片交换显示，但是若动态地像QQ头像那样同时可以很多头像闪动就很复杂了。。。
偶决定放弃让它动了。。。郁闷！

哈哈。。我该成其他方法了。。
我让用户名闪动！。。。算是个改进了。。呵呵