'Dll Import
Imports HundredMilesSoftware.UltraID3Lib
Imports HundredMilesSoftware.UltraID3Lib.ID3v2TagException
 
 
Public Class Form1
    Dim mp3 As New UltraID3
    Dim m_PictureFrames As ID3FrameCollection

 'CoverBild Laden und in id3 Tag speichern
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        With OpenFileDialog1
            .Filter = "Dateiendungen(" & _
              "*.BMP;*.JPG;*.JPEG;*.GIF;*.PNG)|*.BMP;*.JPG;*.JPEG;*.GIF;*.PNG"
            .Title = "Bild auswählen"
            .ShowDialog()
        End With
 
        Dim PictureFileName As String = OpenFileDialog1.FileName
        Dim NewPicture As New Bitmap(PictureFileName)
        Dim PictureFrame As New ID3PictureFrame(NewPicture, _
          PictureTypes.CoverFront, String.Empty, TextEncodingTypes.Unicode)
 
        'mp3.ID3v23Tag.Frames.Add(PictureFrame)
        mp3.ID3v23Tag.Frames.ReplaceFrames(m_PictureFrames, FrameTypes.Picture)
        PictureBox1.Image = PictureFrame.Picture
 
    End Sub