Hola de nuevo, probando probando encontre la respuesta que buscaba, lo pongo por si le interesa alguno:
Esto si funciona para cerrar la ventana cuando se acaba de reproducir algo
Cita: Private Sub WindowsMediaPlayer1_StatusChange()
If WindowsMediaPlayer1.playState = wmppsStopped Then
Unload Me
End If
Salu2