ник: ДрЮня
должен возвращать не 0, а хендл окна.
может не может найти программу, которую нужно запускать?
запускаете с какого диска? из сети?
в деларации нет ошибок?
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)
попробуйте вызвать блокнот, напрмер, так:
Dim res As Long, hwnd As Long
res = ShellExecute(hwnd, "open", "NOTEPAD.EXE", "полное имя файла", "", SW_MAXIMIZED)
If res < 32 Then MsgBox "'ShellExecute' function error", vbExclamation, "rpt_AppStructure"