我用VB做了一个需要 外接 OCX 控件的程序。 如果把它放在另一台计算机上运行，很可能因为缺少相应的OCX 控件而报错。我采取如下的方法： 添加一个模块，见代码 Attribute VB_Name = "Module1" Option Explicit Private Sub Main() Dim r% r = Shell("regsvr32.exe " & App.Path & "\TEXT\RICHTX32.OCX /s", 1) DoEvents r = Shell("regsvr32.exe " & App.Pa...