GFWMA/Form1.frm

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3105
   ClientLeft      =   60
   ClientTop       =   435
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3105
   ScaleWidth      =   4680
   StartUpPosition =   3 'Windows‑Standard
   Begin VB.CommandButton Command1
      Caption         =   "Command1"
      Height          =   855
      Left            =   1020
      TabIndex        =   0
      Top             =   1080
      Width           =   2595
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    Dim Song As String, Artist As String, Album As String, Comment As String, Year As String, Genre As String
    Dim TrackNumberName As String, Composer As String, Publisher As String, Copyright As String, Conductor As String, Writer As String

    Call WMAAudioTag_Read(App.Path + "\Lady Gaga ‑ Bad Romance.mp3", Song, Artist, Album, Year, Comment, Genre, TrackNumberName, Composer, Publisher, Copyright, Conductor, Writer)
    Year = "1991"
    Comment = "Comment!"
    Call WMAAudioTag_Write(App.Path + "\Lady Gaga ‑ Bad Romance.mp3", Song, Artist, Album, Year, Comment, Genre, TrackNumberName, Composer, Publisher, Copyright, Conductor, Writer)

    Debug.Print Song, Artist, Album, Year, Comment, Genre, Composer, Publisher, Copyright, Conductor, Writer
End Sub


[END OF FILE]