你是用的VISTA系统吧，再一个就是陵念用的VB6.0,我以前也是有你这个问题，说以我现在换系统了，明帆网上说的关闭管理里面的什么那一中方法也不起作用，建议你换XP最好带个VB6的运行库的系尺槐困统，我现在就用的很好啊！
目前成都创新互联公司已为上千余家的企业提供了网站建设、域名、虚拟主机、成都网站托管、企业网站设计、神池网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
将第三方控件以自定义资源文件方式保存在程序中，程序运行之后使用控件之前将所用到的控件生成到该程序目录下，完成控件从可执行文件中的金蝉脱壳。具体做法如下：第一步：将要用到的控件拷贝到当前工程目录下，右键单击该控件，选择拦团属性，记下文件大小。注意，应记下以字节为单位的具体数字，而不是多少K，以备编程使用。第二步：引用并正常使用该控件。第三步：新建资源文件加入工程，在资源文件编辑器中添加所使用的第三方控件为自定义资源（CUSTOM），资源号使用默认的101。如果使用了多个控件则分别添加到资源文件的101、102资源项中，脱壳代码也要作相应的修改。第四步：编写控慎羡件脱壳代码，使其读取资源文件的数据，在程序当前目录下生成控件。代码如下：PrivateConstOCXSIZE=57344'欲生成的控件大小是57344Byte,名字为CoolToolBar.ocxSubMain()DimOcx()AsByte'OCX是个Btye类型的数组DimCounterAsLongOcx=LoadResData(101,"CUSTOM")'将自定义资源中101号资源读入数组OCX'注意，微软的帮助中对加载自定义资源的说明有错误，自定义资源标识为"CUSTOM"而不是帮助所说的数字10IfRight(App.Path,1)="($%$43%^#ASD#2@$#f$%^)Then'读取程序所在路径,判断是否为根目录并分别处理'程序在根目录下IfDir(App.Path"CoolToolBar.ocx")=""Then'程序路径下有无控件,无则生成控件'以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录OpenApp.Path"CoolToolBar.ocx"ForBinaryAs#1ForCounter=0ToOCXSIZE-1'注意因为从0Byte开始因此以文件大小-1Byte为终值Put#1,,Ocx(Counter)NextCounterClose#1EndifElse'程序不在根目录简孝橘下IfDir(App.Path"\CoolToolBar.ocx")=""Then'程序路径下有无控件,无则生成控件'以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录OpenApp.Path"\CoolToolBar.ocx"ForBinaryAs#1ForCounter=0ToOCXSIZE-1'注意因为从0Byte开始因此以文件大小-1Byte为终值Put#1,,Ocx(Counter)NextCounterClose#1EndifEndifForm1.Visible=True'主程序所用控件已经生成，显示主窗体，进入主程序。EndSub
Pascal
下面列出制作OCX控件的步骤：
一：新建OCX 打开VB 5.0选择新建工程在对话框中选择ActiveX 控件(如图一(map1.gif))打开后会见一空的文档这就是 OCX控件的初始界面。想看一看空OCX控件的迟氏效果吗?选择“添加工程”选中标准EXE，这时你就可以像调用其它控件一样在左边的工具栏里选择刚才新建的OCX控件图标放在标准的EXE文档中看一看有什么效果!(什么也没有!) 自然因为刚才的OCX文档是空的嘛(废话太多，数个痰盂向我飞来)!
二：创建界面
一般我们用VB创建OCX控件都是在我们的控件里添加其它的控件来组合成一个完整的控件（也可以让它只完码困散成某种算法）比如：你可以在上面添加一按钮、编辑框这时你再用第一部的方法看一看效果，是不是控件上多了一个按钮和一个编辑框。
三：OCX属性
一个OCX控件有许多的属性，比如控件背景是否透明（BackStyle），控件是否可以获得焦点 (CanGetFocus)等。这些属性都可以在控件的“属性框”中找到。
四：添加事件
一个控件有很多事件如：Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的控件有什么事件就在声明处加几条事件。关于触发事件是使用“RaiseEvent”语句来完成的如：RaiseEvent 事件名（参数）。
五：用户属性
一个控件应有许多属性供用户设置如：控件的背景色、控件要显示的图形等。它们通常用Property Get和 Property Let两条语句来完成。前者表示给用户显示一个属性的值，后者表示用户设置一个属性的值。
六：保存属性和读取属性
当属性被用户更改后尺模需要将该属性值保存，以便控件运行时读取更改后的属性值。它们分别用 ReadProperty和WriteProperty两种方法来完成。前者表示读取一个属性值，后者表示写入一个属性值。
引用与部件是二个完全不同的概念，引用只能已经添加引用，但引用没有具体腔喊的界面，部件是具有界面的。
一般OCX应该是部件，如伍竖野果在VB中没有这个部件，估计是你的系统中没有注册，因此首先需要注册。
方法是：纤凯将你需要注册的OCX文件拷贝到系统的WINDOWS/SYSTEM32/的目录中，在这个目录中有一个Regsvr32.exe，双击进入，在DOS界面输入你的OCX的文件名+扩展名，回车，确定，OK了，注册成功。
在VB的部件列表中就可以找到了。