'
' Erstellt mit SharpDevelop.
' Benutzer: Lars
' Datum: 11.07.2007
' Zeit: 17:11
' 
' Sie können diese Vorlage unter Extras > Optionen > Codeerstellung > 
' Standardheader ändern.
'
Imports HundredMilesSoftware.UltraID3Lib 
 
Public Partial Class MainForm
	Public Sub New()
		' The Me.InitializeComponent call is required for Windows Forms designer 
' support.
		Me.InitializeComponent()
 
		'
		' TODO : Add constructor code after InitializeComponents
		'
	End Sub
 
	Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
		Dim mp3 As new UltraID3
 
		mp3.read(Der Pfad zu deiner Musikdatei!)
 
		Dim s As String 
		s = "Artist: " + mp3.ID3v23Tag.Artist + vbcrlf _
		+ "Titel: " + mp3.ID3v23Tag.Title + vbcrlf + "Album: " + mp3.ID3v23Tag.Album _
		+ vbcrlf+ "Genere: " + mp3.ID3v23Tag.Genre 
 
 
		msgbox(s, MsgBoxStyle.Information)
 
		End Sub
 
End Class

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio