程序如下:
Option Explicit
Function AutoExecute(ApplHndl As Long,Sstr As String,FirstPar As Long,SecondPar As Long,ThirdPar As Long ) As Integer
Dim RetVal12
RetVal12=shell("c:\winnt\System32\calc.exe",1)
msgbox "11111"
AutoExecute = Err_None
End Function