Dim item As Integer
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        rnd1()
 
        PictureBox1.Image = ImageList1.Images.Item(item)
    End Sub
    Sub rnd1()
        Dim r As New System.Random()
        Dim a As Byte
        For a = 1 To 5
            item = (r.Next(1, ImageList1.Images.Count))
        Next
 
    End Sub