ник: Alex
Чуть не забыл!
Private Declare Function apiShellExecute 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
Это на самом деле одна строка! Знаки переносов нужно убрать. Никак работать не хотела пока не сообразил