お世話になります。VB2005の処理について教えてください。

リソースの中に画像が1000枚あって、それを一覧表示させる処理を書いてみたんですが...

    Me.picItem00001.BackgroundImage = New Bitmap(My.Resources.image00001)
    Me.picItem00002.BackgroundImage = New Bitmap(My.Resources.image00002)
    Me.picItem00003.BackgroundImage = New Bitmap(My.Resources.image00003)
     :
     :(略)
     :
    Me.picItem00998.BackgroundImage = New Bitmap(My.Resources.image00998)
    Me.picItem01000.BackgroundImage = New Bitmap(My.Resources.image01000)

上記でも問題なく動作しますが、
For〜Loopなどを使って処理を短くする事が可能でしょうか？
お願いいたします。

> For〜Loopなどを使って処理を短くする事が可能でしょうか？
> お願いいたします。

For i As Integer = 1 To 1000
  Me.picItem00001.BackgroundImage = New Bitmap(My.Resources.image & CStr(i).PadLeft(5, "0"c))
Next i

では、どうでしょうか？

> > For〜Loopなどを使って処理を短くする事が可能でしょうか？
> > お願いいたします。
>
> For i As Integer = 1 To 1000
>   Me.picItem00001.BackgroundImage = New Bitmap(My.Resources.image & CStr(i).PadLeft(5, "0"c))
> Next i
>
> では、どうでしょうか？
それだとMe.picItem00001のイメージが変更されていくだけでは・・・。
Me.picItem00001〜01000をBitMapの配列に格納して
一緒にiでカウントしていくのがいいかな？
For i As Integer = 1 To 1000
   Me.arPicItem(i-1).BackgroundImage = New Bitmap(My.Resources.image & CStr(i).PadLeft(5, "0"c))
Next i

ごめんなさい↑のレスはBitMapじゃなくPictureBoxの間違いです（・ω・；）

> それだとMe.picItem00001のイメージが変更されていくだけでは・・・。

あ！　失礼しました。　そちら側の処理を忘れていましたね。

花ちゃんさん、癒耶さん

上記の手順で解決できました。
ありがとうございました。