'Auf Formularebene deklarieren
Dim WithEvents picbind As Binding
 
'z.b. im Form_Load die Bindung erstellen
picbind = New Binding("ImageLocation", bs, "Pic", False, _
                      DataSourceUpdateMode.Never)
 
pbox.DataBindings.Add(picbind) 'pBox = PictureBox-Instanz
 
 
'Anpassung des Pfades im Format-Event
Private Sub picbind_Format(sender As Object, _
     e As System.Windows.Forms.ConvertEventArgs) Handles picbind.Format
 
        e.Value = IO.Path.ChangeExtension(e.Value.ToString, "wmf")
End Sub