For your trolling need.. . Work in an office? Want to annoy an colleague? ilk' . Eject Next rrai Next End If 123993 lump. Here you go, guys. I wrote it for you because OP was too lazy to do it himself. Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCo troll this College uni do it phaggot