Public Class Form1
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As _
      EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex = 0 Then
            PictureBox1.ImageLocation = _
              "http://webcam2.fwv-vib.de/bruecke_99.jpg"
        Else
            PictureBox1.ImageLocation = _
              "http://webcam.fwv-vib.de/stadtplatz_99.jpg"
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange({})
        ComboBox1.SelectedIndex = 0
 
 
    End Sub
 
 
    Dim mCountdown As Integer = 15
 
    Private Sub tmrCountdown_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        If mCountdown > 0 Then
            mCountdown -= 1
            Label1.Text = mCountdown.ToString
 
        Else
            PictureBox1.Refresh()
 
        End If
 
    End Sub
 
End Class