るきお様、cupid様、ありがとうございました。

仕方がないとのこと、仕方がないです。

るしお様の方法、思いつきもしませんでした。

cupid様の例は、PictureBox1.imageとありVB6ではないような気がします。
VB6に直してみました。

真似させていただきます。ありがとうございました。