PictureBox2.Image = Image.FromFile("picture-file1.PNG")
PictureBox1.Image = PictureBox2.Image
d = Int(Rnd(1) * 4 ) + 1
If x = 1 Then
PictureBox1.Image = PictureBox2.Image
Else
If x = 2 Then
PictureBox1.Image = PictureBox3.Image
Else
If x = 3 Then
PictureBox1.Image = PictureBox4.Image
//以下略
End If