不能创建dlg对象的问题

Question

运行下面这个过程时出错，错误是"activeX部件不能创建对象"
那为仁兄能告诉我是怎么回事，怎么解决，谢谢了Private Sub cmdOpen_Click()
    Dim dlgOpenFile As New DialogObjects.ChooseFile
    With dlgOpenFile
        .HideReadOnly = True
        .Filters.Add "文本文件(*.*)"
        .Show
    End With
  End Sub

Answer 1

是控件许可证信息丢失的原因（也许根本就没安装），解决办法：
1 拷贝文件dlgobjs.dll 从vb安装盘的\Tools\Unsupprt\Dlgobj目录到\Windows\System 目录，如果是NT系统则到：\System32 目录（其实，这个文件硬盘上就有，一般说来）
2 从vb安装盘的\Tools\Unsupprt\目录下找到dlgobjs.reg，将它导入注册表，这个文件包含
许可证信息（一定要做，不然只能看，不能用，干着急）
3 注册这个dll, 点击开始菜单，选择运行：输入"regsvr32.exe c:\windows\system\dlgobjs.dll". 在Windows NT下, 则是"regsvr32.exe c:\windows\system32\dlgobjs.dll". 会显示消息提示注册成功（succeeded）

Answer 2

Up在推存一个VB小工具软件名称：VB代码计算器
软件类型：编程工具
编程环境：VB6 + SP5
适用系统：Win9x/2k/XP■ 软件介绍本程序能显示出你编写的VB源代码一共写了多少行，同时也支持其他类型的文件计算。特点：①界面美观，操作方便，你只需拖动你保存好的VB工程（组）文件到本程序窗口就可显示出源代码的总行数。②能自动分析VB工程（组）内包含的文件（这是可选的，也可以不自动分析并把他当作普通文件计算），并分别计算出每个文件所包含源代码的行数。③能自动隔离VB文件中由VB自动生成的代码，只计算用户输入的源代码，并可选择是否要排除空行或注释行的计算。④支持计算非VB文件，如文本文件、ini文件等。计算该类文件时只能排除空行的计算，其他只要不是空行都会累加到总行数中。⑤可暂停正在计算中的任务。⑥可以保存计算结果和被计算文件列表为文本文件，方便以后查询或打印输出。
下载地址：
华军软件 http://www.onlinedown.net/soft/7545.htm
天空软件 http://www.skycn.com/soft/12423.html