Visual Basic - Ventana abierta ??

Hola a tod@s, Veran tengo una aplicacion q abre un reproductor de video con la funcion shell cuando se lo digo por red, en el caso de q el rproductor ya este abierto utilizo la funcion sedkeys para darle al play o al stop,
El problema es q tmb cierro el reproductor mandandole un "Alt + F4" , lo q necesito saber es como se q la ventana del reproductor esta abierta.
les pongo el codigo q tengo de momento.

dim num as double 'declarada a nivel de modulo

private sub command1_click()

dim qq as string

if num = 0 then
qq = "C:\Archivos de Programa\Windows Media Player\wmplayer.exe C:\Prueba.avi"
num = Shell(qq)
else
SendKeys "^p",true 'Envio cltr + p
end if
end sub

el problema q una vez q lo he abierto y cerrado num ya no vale 0 y mando el semdkeys a la nada......
gracias por su tiempo