Public Class Form1
 
    Dim dt As New DataTable
    Dim i As Integer = 15
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        dt.Columns.Add("id")
        dt.Columns.Add("URL")
        dt.Columns.Add("Anzeigetext")
 
        dt.Rows.Add(0, "http://webcam2.fwv-vib.de/bruecke_99.jpg", "Brücke")
        dt.Rows.Add(1, "http://webcam.fwv-vib.de/stadtplatz_99.jpg", _
          "Stadtplatz")
 
        With ComboBox1
            .DataSource = dt
            .DisplayMember = "Anzeigetext"
            .ValueMember = "URL"
        End With
 
        BildAnzeigen()
 
        With Timer1
            .Interval = 1000
            .Enabled = True
        End With
 
        Label1.Text = ""
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As _
      System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        BildAnzeigen()
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) _
      Handles Timer1.Tick
 
        i = i - 1
 
        Label1.Text = "Nächster Refresh in " & i & " Sekunden!"
 
        If i = 0 Then
            BildAnzeigen()
            i = 16
        End If
 
    End Sub
 
    Private Sub BildAnzeigen()
        PictureBox1.ImageLocation = ComboBox1.SelectedValue.ToString
    End Sub
 
End Class

EALA FREYA FRESENA