我的脚本是这样的：
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim objWshShell

Set objWshShell = CreateObject("Ws cript.Shell")

objWshShell.Run "E:\数据库\工程1.exe", 1

End Sub
工程1是一个VB文件，可以打开

我换成了一个PDF文件：
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim objWshShell

Set objWshShell = CreateObject("Ws cript.Shell")

objWshShell.Run "F:\man.pdf", 1

End Sub

却没反应，求解