VB2008を使っています。

画像が20個、PictureBox1～20が表示されているとして、
ボタンをクリックすると、変数aがランダムで1～20のどれかの整数になるとします。
a=1ならPictureBox1の画像を消去し、a=2ならPictureBox2の画像を消去する……
というような事をしたいのですが、全くの初心者で知識が浅いこともありうまい方法が思いつきません。

Select Case a
    Case 1
          PictureBox1.Image.Dispose()
          PictureBox1.Image = Nothing
    Case 2
          PictureBox2.Image.Dispose()
          PictureBox2.Image = Nothing
　　（中略）
End Select
というように気合でCase 20まで書いていけば動きそうですが、非効率的ですよね^^;
何かもっとスマートにできる方法はないものでしょうか？
ご回答よろしくお願いします。