VB6
Windows 10

Declarations
Code:
#If Win32 Then
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile _
As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Declare Function GetDesktopWindow Lib "USER32" () As Long
#Else
Declare Function ShellExecute Lib "SHELL" (ByVal hwnd%, _
ByVal lpszOp$, ByVal lpszFile$, ByVal lpszParams$, _
ByVal LpszDir$, ByVal FsShowCmd%) As Integer
Declare Function GetDesktopWindow Lib "USER" () As Integer
#End If
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Function
Code:
Function OpenFile(sFile As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", sFile, "", "C:\", SW_SHOWNORMAL)
End Function
The command/parameters when loading vlc this way is to stop the video after 30 seconds. The playlist entry has been checked to work using the Windows Run Box. This does not open vlc at all.
Code:
OpenFile "vlc --stop-time 30 " & lstPlaylist.List(lstPlaylist.ListCount - 1)
This, however, loads vlc with no problem.
Code:
OpenFile "vlc"
My question is: How can I load vlc with the commands/parameters?