Public Class Form1
    Dim rnd As New Random
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        PictureBox1.Image = My.Resources.ResourceManager.GetObject("Bild" & _
        rnd.Next(1, 4).ToString)
End Sub