' MP3-Infos lesen und anzeigen
    Dim sFile As String
    Dim oID3v2 As ID3v2
    Dim nSize As Integer
 
 
    Private Sub but_OpenFile_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles but_OpenFile.Click
        Try
 
            'Den Filter der zum Öffnen der möglichen Dateitypen festlegen.
            With OpenFileDialog
                .Filter = "Music-File (*.pm3)|*.mp3"
                .Title = "Mp3-Datei öffnen"
                .FileName = ""
            End With
 
            ' Den Dialog zum Öffnen anzeigen, datei öffnen und auslesen.
            If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
                sFile = OpenFileDialog.FileName
                txtb_file.Text = sFile
            Else
                GoTo fail
            End If
 
 
        Catch ex As Exception
            MsgBox("Fehler beim Laden der Datei!!!", MsgBoxStyle.Critical)
        End Try
fail:
    End Sub
 
    Private Sub but_read_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles but_read.Click
        ' Existieren ID3v2-Infos?
        nSize = MP3_ID3v2Exists(sFile)
        If nSize > 0 Then
            ' ID3v2-Infos auslesen und anzeigen
            oID3v2 = MP3_ReadID3v2Tag(sFile)
            With oID3v2
                txtb_title.Text = .sTitle
                txtb_artist.Text = .sArtist
            End With
        Else
            MsgBox("Keine ID3v2-Infos vorhanden!")
        End If
 
 
 
    End Sub
 
    Private Sub txtb_artist_TextChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles txtb_artist.TextChanged, TextBox1.TextChanged
 
    End Sub
 
    Private Sub AndiMp3Tags_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
    End Sub
 
    Private Sub but_ok_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles but_ok.Click
        Me.Close()
    End Sub
 
 
 
End Class