wmpPlayer Repeat Forever

Question

I have a windows media player object embedded in my form and it's set to auto-play a video.
I want that video to loop forever, but can't figure out how!

Right-clicking the object in design view brings up settings and includes "Play count" but setting it to 0 won't work. It reverts to 1 as soon as the properties window is closed. Also it won't accept -1. The max setting is 999 which isn't enough as the video will only loop for a few hours.

This is how I am manipulating controls:

    wmpPlayer.Ctlcontrols.play()

    wmpPlayer.Ctlcontrols.pause()

    wmpPlayer.URL = ofdOpen.FileName 'Play

  ' This does NOT work to make repeat forever!...
  ' wmpPlayer.settings.playCount() = 0 

• I've tried catching the 'PlayStateChanged' event like so:

  Private Sub wmpPlayer_PlayStateChange_1(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles wmpPlayer.PlayStateChange
  If e.newState = 8 Then
      wmpPlayer.Ctlcontrols.play()
  End If
  '0 = Undefined
  '1 = Stopped (by User)
  '2 = Paused
  '3 = Playing
  '4 = Scan Forward
  '5 = Scan Backwards
  '6 = Buffering
  '7 = Waiting
  '8 = Media Ended
  '9 = Transitioning
  '10 = Ready
  '11 = Reconnecting
  '12 = Last
  End Sub 
  

But I'm not sure if this method always works. I left my program running overnight on two machines and this morning one was still running but the other had stopped somehow.

Answer 1

Or try with excel vba

WindowsMediaPlayer1.settings.setMode "Loop", True

Answer 2

I want that video to loop forever, but can't figure out how!

Just set the "Loop" mode property in settings to true:

wmpPlayer.settings.setMode("Loop", True)