今天同事的系统很奇怪，昨天还打开好好的工程文件，今天一打开就报告：不能加载OCX，继续加载工程吗？然后就是加载错误。

一看左边的工具箱上的控件，以前引用 加载的控件 图标全部编程了白板。

LOG文件：

行 62:不能加载控件 ccom。
行 146:不能加载控件 txt_data3。

运行提示：“类未注册。查找对象，其CLSID为：{ 00000010 — 0000 — 0010 — 8000 — 00AA006D2EA4 }”。

手动注册了一个，就好了一个，但是实在太多了，因此决定还是写个小程序算了：

Private Sub Command1_Click()
Dim mypath As String
Dim myname As String
mypath = "F:\WINXP\system32\"   ' 指定路径。
myname = Dir(mypath + "*.ocx") ' 找寻第一项。
Do While myname <> ""   ' 开始循环。
   Debug.Print myname
   If (Shell("regsvr32 /s " + myname) = 0) Then
    Debug.Print myname, "regsvr32 err"
   End If
   myname = Dir
Loop
Debug.Print "Over"
End Sub

不过很奇怪，重新安装了VB也不行，估计是因为文件都在，所以安装程序没有进行再次覆盖、注册操作等。不过不明白为什么会出这个错误

VBP工程文件关于 引用、部件、控件 的信息Reference=*\G{ 00020430-0000-0000-C000-000000000046 }#2.0#0#..\..\..\WINXP\System32\STDOLE2.TLB#OLE Automation
Object={ 648A5603-2C6E-101B-82B6-000000000014 }#1.1#0; MSCOMM32.OCX