Public Structure ID3v1
        Public Title As String
        Public Artist As String
        Public Album As String
        Public Year As String
        Public Comments As String
        Public Track As Byte
    End Structure
 
    Private Function ReadID3(ByVal Filename As String) As ID3v1
        Dim ByteArray(129) As Byte
        Dim str As String = ""
        Dim buffer As ID3v1
 
        If Not IO.File.Exists(Filename) Then Return Nothing
 
        FileOpen(1, Filename, OpenMode.Binary, OpenAccess.Read, _
          OpenShare.Default)
        Seek(1, FileLen(Filename) - 129)
        FileGet(1, ByteArray)
        FileClose(1)
 
        With buffer
            .Title = GetString(ByteArray, 4)
            .Artist = GetString(ByteArray, 34)
            .Album = GetString(ByteArray, 64)
            .Year = GetString(ByteArray, 94, 4)
            .Comments = GetString(ByteArray, 98)
            .Track = ByteArray(128).ToString
        End With
 
        Return buffer
    End Function
 
 
    Private Function GetString(ByVal ByteArray() As Byte, ByVal Pos As Integer, _
      Optional ByVal länge As Integer = 30) As String
        Dim t As Integer
        Dim Result As String = ""
        For t = 1 To länge
            If ByteArray(t + Pos) = 0 Then Exit For
            Result &= Chr(ByteArray(t + Pos))
        Next
        Return Result
    End Function