> Do
>     Randomize()
>     myNum = Int(Rnd() * 52)
> Loop Until myFlag(myNum) = False

既存スレでも回答していますがこのループは
ループ完了までに時間がかかるケースがあるので
やめたほうがいいです。

例)
work(0)～work(50)までに13以外の値が設定されていたとします。
work(51)に設定する13が乱数として発生するまでに何度乱数発生が
処理されるか分かりません。運が悪いと何分もかかる可能性もあります。




>       PictureBox1.Image = Image.FromFile(strPic(work(0)))
>        PictureBox2.Image = Image.FromFile(strPic(work(1)))
>        PictureBox3.Image = Image.FromFile(strPic(work(2)))
>        PictureBox4.Image = Image.FromFile(strPic(work(3)))
>        PictureBox5.Image = Image.FromFile(strPic(work(4)))
直接設定するのではなく
各PictureBoxに割り当てられるworkのインデックスまたはwork(i）の
値を保持するようにしないとこの先に進めません。
またPictureBoxを配列にするなどしてキーで指定出来るようにしないと
大変なことになります。