Public Class frmMain
	Inherits System.Windows.Forms.Form
 
	Private Structure TagInfo
		<VBFixedString(3), System.Runtime.InteropServices.MarshalAs( _
  System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=3)> _
  Public Tag As String
		<VBFixedString(30), System.Runtime.InteropServices.MarshalAs( _
System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=30)> _
Public Titel As String
		<VBFixedString(30), System.Runtime.InteropServices.MarshalAs( _
System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=30)> _
Public Artist As String
		<VBFixedString(30), System.Runtime.InteropServices.MarshalAs( _
System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=30)> _
Public Album As String
		<VBFixedString(4), System.Runtime.InteropServices.MarshalAs( _
System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=4)> _
Public Jahr As String
		<VBFixedString(30), System.Runtime.InteropServices.MarshalAs( _
System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=30)> _
Public Kommentar As String
		Public Kategorie As Byte
	End Structure
 
#Region " Vom Windows Form Designer generierter Code "
 
	Public Sub New()
		MyBase.New()
 
		' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
		InitializeComponent()
 
		' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
 
	End Sub
 
	' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu 
' bereinigen.
	Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
		If disposing Then
			If Not (components Is Nothing) Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(disposing)
	End Sub
 
	' Für Windows Form-Designer erforderlich
	Private components As System.ComponentModel.IContainer
 
	'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
	'Sie kann mit dem Windows Form-Designer modifiziert werden.
	'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		'
		'frmMain
		'
		Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
		Me.ClientSize = New System.Drawing.Size(392, 273)
		Me.Name = "frmMain"
		Me.Text = "Form1"
 
	End Sub
 
#End Region
 
	Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
		Dim minftaginfo As TagInfo
		With minftaginfo
			.Titel = "d"
			.Album = "adfg"
			.Artist = "asgfdg545776w4egegerg5we86t4wetfg"
		End With
		Dim mspfad As String
		mspfad = "I:\Test.mp3"
		Dim iKanalNr As Integer
		iKanalNr = FreeFile()
		'If frmMain.medPlayer.FileName = msPfad Then
		'	Dim p As Integer
		'	p = frmMain.medPlayer.CurrentPosition
		'	frmMain.medPlayer.FileName = ""
		'End If
		FileOpen(iKanalNr, mspfad, OpenMode.Binary)
		If minftaginfo.Tag = "TAG" Then
			Seek(iKanalNr, LOF(iKanalNr) - 127)
		Else
			minftaginfo.Tag = "TAG"
			Seek(iKanalNr, LOF(iKanalNr))
		End If
		FilePut(iKanalNr, minftaginfo.Tag)
		FilePut(iKanalNr, minftaginfo.Titel)
		FilePut(iKanalNr, minftaginfo.Artist)
		FilePut(iKanalNr, minftaginfo.Album)
		FilePut(iKanalNr, minftaginfo.Jahr)
		FilePut(iKanalNr, minftaginfo.Kommentar)
		FilePut(iKanalNr, minftaginfo.Kategorie)
		FileClose(iKanalNr)
		'If p Then
		'	frmMain.medPlayer.FileName = msPfad
		'	frmMain.medPlayer.Play()
		'	frmMain.medPlayer.CurrentPosition = p
		'End If
	End Sub
End Class