回复：【CBM666 工作上的难题欢迎进入】

我今天就是来看一下。

不能创建引用：’C:\Windows\SysWOW64\mscomctl.oca’
之前创建的窗口，现在打开时提示错误：见图1
:图1：

按确定进去后，运行时还是提示错误：见图2
图2：

这是我之前添加的TreeView控件，现在却提示为用户定义类型。
大神怎么接解决啊。之前就遇到这个问题，各种查都没有解决。最后重装的系统。现在又出现了，快崩溃了。。。。

一.Mscomctl.ocx 有区分 32 64 位两个不同的ocx文件
二.这个OCX用的人特多 经常会被**程序员以不同的版本强制性的覆盖 最好改选5.0的mscomctl.ocx 别选6.0的 两者没啥大差别
三.如果是在点击 .vbp工程文件时 弹出此错误，可用记事本编辑修改一下即可进入

@cbm666把2.1改成2.0还是不行啊。
我进去想重新加载6.0发现加载不了：见图1
图1

然后按您说的，加载的5.0可以。
我把TreeView控件和imagelist控件属性和代码重新设置了一遍。重新打开就可以了。
老师，但是6.0那个问题始终还是没有解决

Private Sub Command1_Click()
Dim zb As POINTAPI
GetWindowRect Text1.Text, ckzb
yxckys = 取坐标颜色(Text1.Text, 0, 0)
zb = 取颜色坐标(0, yxckys, ckzb.Left, ckzb.Top, ckzb.Left + 15, ckzb.Top + 35)
ckbkk = zb.x - ckzb.Left
ckbkg = zb.y - ckzb.Top
MsgBox ckbkk & " " & ckbkg
End Sub
Public Function 取颜色坐标(ByVal Hwnd As Long, ByVal Color As Long, ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer) As POINTAPI
Dim a As Integer
Dim b As Integer
Dim HDpic As Long
HDpic = GetDC(Hwnd)
For a = y1 To y2
For b = x1 To x2
If GetPixel(HDpic, b, a) = Color Then
取颜色坐标.x = b
取颜色坐标.y = a
Exit For
End If
Next b
If GetPixel(HDpic, b, a) = Color Then
Exit For
End If
Next a
ReleaseDC Hwnd, HDpic
End Function
代码如上，主要目的通过 窗口内的第一个点的颜色的桌面坐标，减去 窗口在桌面上的坐标来获取 不同主题 的 窗口外框 的大小，
在XP 中完美运行，秒出结果， 而在WIN7中 大概须要 20秒 ，这是什么情况啊，CBM666老师

取窗口坐标直接使用句柄 配合RECT 即可获取 用颜色来获取窗口位置太不现实了吧
GetPixel是取像素坐标 代码没见到你有定义 也没见到你将twip除以15
图片取色 或 获取窗口位置 需要代码参考再找我