Dim song As IWMPMedia
[color=green]'mp3 vorladen
Set song = WindowsMediaPlayer1.newMedia("G:\Dokumente und" & _
  "Einstellungen\JM\Eigene Dateien\Eigene Musik\RMB - To France.mp3")
[color=green]'info ausgeben, z.b. dauer bzw. länge des songs
MsgBox song.durationString
[color=green]'mp3 abspielen
WindowsMediaPlayer1.currentMedia = song

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...