複数のイメージコントロールをアニメーションさせるには？ (ID:87456)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつもお世話になっております。 環境：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を切り替える方法しかないのでしょうか。 解りにくい説明で申し訳ございませんが、どなたかヒントをいただけないでしょうか。