Public Class Form1
 
    Dim m_Sekunden As Integer = 15
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles _
      Me.Load
        Me.Label1.Text = CStr(m_Sekunden)
        Me.PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
    End Sub
 
    Private Sub WebcamBildAnzeigen()
        PictureBox1.ImageLocation = "http://webcam2.fwv-vib.de/bruecke_99.jpg"
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs)
        Me.Label1.Text -= CDbl(1)
 
        If Me.Label1.Text = 0 Then
            WebcamBildAnzeigen()
            Me.Label1.Text = CStr(m_Sekunden)
        End If
    End Sub
 
    Private Sub btnSpeicherBild_Click(sender As System.Object, e As _
      System.EventArgs) Handles btnSpeicherBild.Click
        Me.PictureBox1.Image.Save("F:\Temp\Image1.jpg", _
        System.Drawing.Imaging.ImageFormat.Jpeg)
    End Sub
End Class