// Create player and configure
Dim player As New AVQueuePlayerMBS
Dim playerLayer As New AVPlayerLayerMBS(player)
player.pause

// Create looping item
Dim file As FolderItem = SpecialFolder.Desktop.Child("loop.mov")
Dim itemToLoop As New AVPlayerItemMBS(file)

// Create looping helper object. Loop item segment from 5sec to 7sec
Dim startTime As CMTimeMBS = CMTimeMBS.Make(5000, 1000)
Dim duration As CMTimeMBS = CMTimeMBS.Make(2000, 1000)
Dim timeRange As CMTimeRangeMBS = CMTimeRangeMBS.Make(startTime, duration)
Dim looper As New AVPlayerLooperMBS(player, itemToLoop, timeRange)

// Perform any other set up operations like setting AVPlayerItemDataOutputs on the looping item replicas
// Start playback
player.play

// itemToLoop between 5s and 7s plays repeatedly
'....
// To end the looping
looper.disableLooping
// Player will play through the end of the current looping item