调用API的问题!

'''''''''''''''''''''调用部分''''''''''''''''''''''''''''''''''''''''    
Dim stru As mdlGlobal.SHELLEXECUTEINFO
    
    
    stru.cbSize = Len(stru)
    stru.fMask = 0
    stru.hwnd = Me.hwnd
    stru.lpVerb = vbNullString    stru.lpFile = strAppMgr
    stru.lpDirectory = vbNullString
    stru.nShow = SW_SHOWDEFAULT
    stru.hInstApp = App.hInstance        stru.lpParameters = App.Path & "\" & files
        If ShellExecuteEx(stru) = ERROR_SUCCESS Then'''''''''''''''''''''声明''''''''''''''''''''''''''''''''''''''''''
Public Type SHELLEXECUTEINFO
        cbSize As Long
        ' fields
        lpIDList As Long
        lpClass As String
        hkeyClass As Long
        dwHotKey As Long
        hIcon As Long
        hProcess As Long
        lpParameters As String
        lpDirectory As String
        nShow As Long
        hInstApp As Long
        lpVerb As String
        lpFile As String
        hwnd As Long
        fMask As Long
        
End TypePublic Const SW_SHOWDEFAULT = 10
Public Declare Function ShellExecuteEx Lib "shell32.dll" (lpExecInfo As SHELLEXECUTEINFO) As Long调用外部程序的API,报内存冲突,我查了半天也查不到原因.哪位帮忙看看,万谢.
其中:
strAppMgr=C:\Program Files\Microsoft ActiveSync\CEAPPMGR.EXE
stru.lpParameters=E:\SetupCAB\Setup-0.ini