Here is the VB6 code I use to reproduce the issue:
Code: Select all
Public Sub Play(Optional lngID As Long = 0)
vlc.Playlist.Play lngID
End Sub
Public Sub PlaylistPlay(strURL As String)
Play PlaylistAdd(strURL)
End Sub
Public Function PlaylistAdd(strURL As String) As Long
PlaylistAdd = vmpPreview.Playlist.Add("file:///" + strURL, , ":no-autoscale")
End Function