Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
   System.EventArgs) Handles MyBase.Load
        Dim sr As New IO.StreamReader("C:\cam.txt")
        While sr.Peek > -1
            Dim l As String = sr.ReadLine
            ComboBox1.Items.Add(l)
        End While
        sr.Close()
        ComboBox1.SelectedIndex = (0)
        PictureBox1.ImageLocation = ComboBox1.Items.Item(0)
    End Sub