VB中如何实现点击某个按钮即运行程序，就是用按钮直接运行程序？最好是按钮的单击事件，给出代码或例子

Private 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) As Long

Private Const SW_SHOW = 5

Private Sub Command1_Click()

Call ShellExecute(Me.hwnd, "open", "c:\windows\system32\calc.exe", "", "", SW_SHOW)

End Sub

这个是win7的保护机制，楼主看d出窗口的时候运行下面应该还有别的设置的，具体叫什么我忘了。里面可以设置d出窗口的方式，选择从不阻止就ok了，我说的是大概的，因为win7的时间用的不长，但是一定是这样的。

最简单的用DOS批处理

如在同一文件夹内有三个程序a.exe、b.exe及C.exe要求做出一个文件，运行后a b c 三个程序都运行

打开记事本写入下列内容

call a.exe

call b.exe

call c.exe

另存为任意文件名，但扩展名要写成.bat，如d.bat，将其与a b c三个程序同放在一个文件夹，下次运行d.bat则a b c 三个程序将同时运行。

---