private rd As New Random
 WithEvents tm As New Timer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        tm.Interval = 1000
        tm.Start()
    End Sub
    Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles tm.Tick
        Dim i As Integer = rd.Next(0, ImageList1.Images.Count)'mit Null beginnen
        PictureBox1.Image = Imagelist1.Images(i)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus