I found the solution, is very simple, more than i thought it would be.
All we have to do is...
Dim orange as object
set orange=windowsmediaplayer1.currentplaylist.item(List1.ListIndex)
windowsmediaplayer1.currentplaylist.removeitem(orange)
That's all.
I hope that it works for anybody else that need it.