既然我们构造了这世界上最有魅力的ActiveX组件，就应该把它们发布出去。那么我们该怎么做呢？

　　 幸运的是，发布COM组件是一件非常容易的事。 我们只要使用Package & Deployment(打包和展开)向导就可对计算机上的常规Visual Basic工程进行相应的操作。同样，该向导还适用于ActiveX工程。

　　 但是，发布时只有ActiveX组件本身自己吗？如果不是，那么为何又要运行向导，单独地为自己的ActiveX工程创建一个安装程序？或是连同使用它的应用程序一起发布？对于常规工程来说，简单地创建一个安装，其组件就会自动被打包。

　　 唔，可能就这么简单吧？

版主真是厉害！！！！！！佩服

自己写的程序示例,没毛的狗

老兄此语差矣...
难道会看的人他之所以会看...是凭空而来的么...
之所以不会才看...
不会的沿尚若看都不看又何来懂!

慢慢看

楼主辛苦了！！！
不过创建成工程的例子，别人也许愿意看一些。

封装存取文本文件的一个例子
Private FileName_ As String '文件名
Private FileNumber_ As Variant '文件编号
Public Enum IOType
ForInput = 1
ForOutPut = 2
ForBinary = 3
End Enum
Private OpenType_ As IOType
Private OutPutText_ As Variant

Property Get OpenType() As IOType '读取打开类型属性
OpenType = OpenType_
End Property

Property Let OpenType(NewValue As IOType) '设置打开类型属性
OpenType_ = NewValue
End Property

Property Get FileName() As String '读取文件路径属性

FileName = FileName_
End Property

Property Let FileName(NewFileName As String) '读取文件路径属性
FileName_ = NewFileName
End Property

Property Get FileNumber() As Variant '读取文件编号属性
FileNumber = FileNumber_
End Property
Property Let FileNumber(NewFileNumber As Variant) '设置文件编号属性
FileNumber_ = NewFileNumber
End Property
Property Get OutPutText() As Variant '设置写入文件内容
OutPutText = OutPutText_
End Property
Property Let OutPutText(NewText As Variant) '读取写入文件内容
OutPutText_ = NewText
End Property
Public Function Enter() As Variant '方法
If OpenType = ForInput Then
Enter = For_Input
ElseIf OpenType = ForOutPut Then
For_Oput
' Else
End If
End Function

Private Function For_Input() As Variant '读取文件
Dim Str As Variant

Open FileName_ For Input As #FileNumber
While Not EOF(1)
Line Input #1, Str
For_Input = For_Input + Str + vbCrLf
Wend

Close #FileNumber
End Function


Private Function For_Oput() '写入文件

Open FileName_ For Output As #FileNumber
Print #FileNumber, OutPutText_
Close #FileNumber
End Function

太多了 可要看一段时间

这才是“编程”！一定要面向对象！创建自己的实行属性、方法、事件，这就是类，使用的时候一定要实例化，即使用"New"关键字。实例化后，在任何地方均可随意调用。一是代码重用，而是便于维护。楼主讲的很好，大家好好学学吧！也许这就是高难的地方。

呵呵...总算有一个人会欣赏的...hyhhd兄...可否加Q交流交流!82530662