Imports System.Drawing
Imports System.Resources
Imports System.Windows.Forms
 
Public Class CImageViwer
 
    ' Anzahl der Bilder im Beisiel
    Private Const _MAX_IMAGES As Integer = 5
 
    Private _pictureBox As System.Windows.Forms.PictureBox
    Private _timer As New System.Timers.Timer
 
    Public Sub New(ByRef pictureBox As System.Windows.Forms.PictureBox, _
      Optional ByVal interval As Integer = 2000)
 
        AddHandler _timer.Elapsed, AddressOf Timer_Elapsed
 
        _pictureBox = pictureBox
        ' Das erste Bild sofort anzeigen
        SetImage(GetImage(1))
 
        ' Interval des Timers setzen
        _timer.Interval = interval
 
        ' Timer starten
        _timer.Enabled = True
 
 
    End Sub
 
    ' Sicherstellen, dass der Interval während der Laufzeit geändert werden kann
    Public WriteOnly Property Interval() As Integer
        Set(ByVal value As Integer)
 
            _timer.Interval = value
 
        End Set
    End Property
 
    Private Sub Timer_Elapsed(ByVal sender As Object, ByVal e As _
      System.Timers.ElapsedEventArgs)
 
        Dim r As New Random
        Dim i As Integer = 0
 
        ' Sicherstellen dass die Zufallszahl höher 0 und tiefer glich maximale 
        ' Zahl der Bilder ist
        While i < 1 Or i > _MAX_IMAGES
            i = r.Next
        End While
 
        ' Bild anzeigen
        SetImage(GetImage(i))
 
    End Sub
 
    Private Delegate Sub InvokeImage(ByVal bitmap As Bitmap)
    Private Sub SetImage(ByVal bitmap As Bitmap)
 
        If _pictureBox.InvokeRequired Then
            _pictureBox.Invoke(New InvokeImage(AddressOf SetImage), bitmap)
        Else
            _pictureBox.Image = bitmap
        End If
 
    End Sub
 
    Private Function GetImage(ByVal index As Integer) As Bitmap
 
        Dim img As Bitmap = Nothing
        ' Bild je nach Index in PictureBox laden
        Select Case index
            Case 1
                img = My.Resources.DSCN0001 ' DSCN0001 ist der Dateiname des 1. 
                ' Bildes
            Case 2
                img = My.Resources.DSCN0002
            Case 3
                img = My.Resources.DSCN0003
            Case 4
                img = My.Resources.DSCN0004
            Case 5
                img = My.Resources.DSCN0005
        End Select
 
        Return img
 
    End Function
 
End Class