Public Class frmBinding
 
    Dim combobox1 As New ComboBox
 
    Dim dt As New DataTable
    Dim pb As New PictureBox With _
       {.Parent = Me, .Top = 50, .Width = 300, .Height = 300, _
        .SizeMode = PictureBoxSizeMode.Zoom}
 
    Dim WithEvents cbo As New ComboBox With {.Parent = Me}
 
    Dim bs As New BindingSource
 
 
    Private Sub frmBinding_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        dt.Columns.Add("Ort") : dt.Columns.Add("Bild")
 
        'Code einfügen: Lesen der Zeilen aus der Datei
 
        For Each line As String In lines
            Dim parts() As String = line.Split(";"c)
            If parts.Length = 2 Then
                dt.Rows.Add(parts(0), parts(1))
            End If
        Next line
 
        bs.DataSource = dt
        cbo.DisplayMember = "Ort"
        cbo.DataSource = bs
        pb.DataBindings.Add("Imagelocation", bs, "Bild")
 
    End Sub
 
End Class

Option Strict On
Option Explicit On
Option Infer Off