wmplayer y Visual Basic 6

[Insomnia]

Hola

Prueba a cambiar la propiedad uiMode a invisible cuando termine el vídeo. Para controlar el final del vídeo utiliza el evento PlayStateChange

Algo como:

Código:

Private Sub wmplayer_PlayStateChange(ByVal NewState As Long)

If NewState = 8 Then ' fin vídeo
    wmplayer.uiMode = "invisible"
End If

End Sub

--Saludos--