 <p>Assuming "couldn't get it to work" means you didn't know how to loop the six PictureBox controls, try putting them into an array:</p> <pre><code>For Each pb As PictureBox In New PictureBox() {steen1, steen2, steen3, steen4, steen5, steen6} Select Case RandomNumber.Next(1, 7) Case 1 : pb.Image = Game.My.Resources.Een Case 2 : pb.Image = Game.My.Resources.Twee Case 3 : pb.Image = Game.My.Resources.Drie Case 4 : pb.Image = Game.My.Resources.Vier Case 5 : pb.Image = Game.My.Resources.Vijf Case 6 : pb.Image = Game.My.Resources.Zes End Select Next </code></pre> <p>This assumes you have six PictureBoxes named steen#, etc.</p> <p>Also note that I changed your Random range to 1 - 7. The max is one less, so in your code, you were never getting a number 6 for an image.</p>