Ho provato a copiare i metadati da una immagine ad un'altra, modificando il tag 0x131 software.

codice:
        For Each p As PropertyItem In bmp.PropertyItems
            If p.Id = &H131 Then
                p.Value = l.StringToBytes("Libreria" & vbNullChar, Encoding.ASCII)
                p.Len = p.Value.Length
                bmp1.SetPropertyItem(p)
            Else
                bmp1.SetPropertyItem(p)
            End If

        Next
Il problema sorge quando l'immagine di partenza non ha metadati.
Questo codice non funziona "classe PropertyItem Friend"

Dim p1 As New System.Drawing.Imaging.PropertyItem()
p1.Id = &H131
p1.Type = 2

Mi date qualche suggerimento?