Files = Dir("E:\music\*.mp3")
 
    If Files <> "" Then
    Do
    TagWriter1.MP3_FileName = Files
     List1.AddItem TagWriter1.ID3tag_Artist
    files=Dir() 
    Me.Refresh                                   'Aktualisiert die Form
    DoEvents                                       ' Sorgt dafür, daß weiter 
    ' Ereignisse stattfinden können
    Loop While Files <> ""
     End If

Live and let die