how to stop repeating the same image showing out in the image list
Private Sub frmStart1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call Timer.Start()
Dim rd As New Random
Dim c As Integer
Dim lop As Integer = 0
c = rd.Next(0, 4)
Dim pb1 As Image = ImageList1.Images(c)
c = rd.Next(0, 4)
Dim pb2 As Image = ImageList1.Images(c)
c = rd.Next(0, 4)
Dim pb3 As Image = ImageList1.Images(c)
c = rd.Next(0, 4)
Dim pb4 As Image = ImageList1.Images(c)
c = rd.Next(0, 4)
Dim pb5 As Image = ImageList1.Images(c)
Me.Pic1.Image = pb1
Me.Pic2.Image = pb2
Me.Pic3.Image = pb3
Me.Pic4.Image = pb4
Me.Pic5.Image = pb5
End Sub