いつもお世話になっております。
環境：Windows2000 VB6.0SP5
現在、複数のアイコン(イメージコントロール)をアニメーションさせたくて、
以下のようにTimerイベント時にアイコンのPictureを切り替えています。
For I = 1 To iMax
Select Case sName(I)
Case "Img01": Img01.Picture = ImageList1(iAni).ListImages(pType(I)).Picture
Case "Img02": Img02.Picture = ImageList1(iAni).ListImages(pType(I)).Picture
Case "Img03": Img03.Picture = ImageList1(iAni).ListImages(pType(I)).Picture
Case "Img04": Img04.Picture = ImageList1(iAni).ListImages(pType(I)).Picture
Case "Img05": Img05.Picture = ImageList1(iAni).ListImages(pType(I)).Picture
・
・
・
End Select
Next
iMax:現在使用中のイメージコントロール数(現在は20個)
sName:現在使用中のイメージコントロール名
ImageList1():点滅しているよう見せるためのイメージリスト。(０：点、１：滅)
このソースですと、同時に点滅してしまうので、他の方法はないかと悩んでおります。
アニメーションGIFも作って色々試してみたのですが、活用する方法が解りません。
やはり、アイコンのPictureを切り替える方法しかないのでしょうか。
解りにくい説明で申し訳ございませんが、どなたかヒントをいただけないでしょうか。
自己解決しました。
お世話になりました。