Dim r As New System.Random(DateTime.Now.Ticks Mod Integer.MaxValue)
	Dim loi As List(Of Image)
 
	Private Function rnd1() As Image
		If loi.Count = 0 Then Return Nothing
		Dim idx As Integer = r.Next(0, loi.Count)
		Dim img As Image = loi(idx)
		loi.RemoveAt(idx)
		Return img
	End Function
 
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
		loi = New List(Of Image)(From img As Image In ImageList1.Images)
	End Sub
 
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
		PictureBox1.Image = rnd1()
	End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist