¿Dónde puedo descargar una introducción a los controles vb?
/codebase/?pos=list&type=subclass&mainclass=1&subclass=20
Sub privado WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
Si NewState = 1 entonces
'Evento
Finalizar si
Fin Sub
'1 Detener; 2 Pausa 3, Reproducir'