如何用VB调用一个外部EXE程序？

使用Shell函数函数。

Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。

Shell的语法：Shell(PathName[，WindowStyle])。

PathName 为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。

WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。

示例，打开当前程序所在目录下的TEMP.EXE文件：

Dim a As Integer

a = Shell(App.Path &"\TEMP.EXE")

UINT WinExec:

WinExec("C:\\Windows\\Notepad.exe",SW_SHOW)

WinExec("C:\\Windows\\Notepad.exe C:\\aa.txt",SW_SHOW)

WinExec("C:\\...\\IExplorer.exe www.microsoft.com",SW_SHOW)

HINSTANCE ShellExecute:

ShellExecute (NULL,"Open","Some.txt",NULL,NULL)

ShellExecute (NULL,"Open","www.microsoft.com",NULL,NULL)

BOOL CreateProcess 比较麻烦,但是它的功能最强.可以给程序传值,

控制程序的据柄,制定继承状态等等.在桌面上双击图标打开应用，程序就是用它实现的.在MSDN中有详细介绍.

以上三种函数由简而繁,按实际情况调用.

只要有这个程序的窗体文件（也就是 *.frm）就可以了，你直接在你现在那个VB的程序里点添加文件就可以了，如果没有 以前的窗体文件，那恐怕有点困难了，实在不行你可以试下用shell函数。

找到你的以前编好的那个程序，复制它的绝对路径，然后给一个按钮上写上代码Private Sub Command1_Click()

shell "这个程序的绝对路径"

End Sub

把代码里的 这个程序的绝对路径 换成你那个程序的绝对路径就可以了

---