Public Class Form1
  Dim WithEvents oTimer As Timer
  Dim picIndex As Integer
 
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    ' Timer
    oTimer = New Timer
    oTimer.Interval = 1000
  End Sub
 
  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    ' Film starten
    picIndex = 0
    ShowPic()
    oTimer.Start()
  End Sub
 
  Private Sub ShowPic()
    PictureBox1.Image = ImageList1.Images(picIndex)
  End Sub
 
  Private Sub oTimer_Tick(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles oTimer.Tick
 
    picIndex += 1
    If picIndex > ImageList1.Images.Count - 1 Then
      Stop
      oTimer.Stop()
      Exit Sub
    End If
    ShowPic()
  End Sub
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de