If Playlist_length <> _ 
          SendMessage(WinampHandle, WM_USER, 1, IPC_GETLISTLENGTH) Then
                    Playlist_length =  _
                          SendMessage(WinampHandle, WM_USER, 1, _
                          IPC_GETLISTLENGTH)
                    modMain.M3U_auslesen()
End If
'....   nur ein kleiner Einblick
.Path = modMain.M3U(modMain.SendMessage(modMain.WinampHandle, WM_USER, 0, _
  IPC_GETLISTPOS))