VB使用资源编辑器写入OCX与注册

首先把将要使用的OCX控件房放在工程同一目录下，在“外接程序”->“外接程序管理器”->“VB 6 资源管理器”   添加资源文件，可以讲图标、image等文件添加进去，这里我们添加的是ocx。添加后保存会生成一个.reg文件，就是我们的资源文件。
然后在程序的主程序中加以下语句。


 If Dir(App.Path & "\mscomm32.ocx") = "" Then
Dim a() As Byte, b() As Byte
a = LoadResData(101, "CUSTOM")
Open App.Path & "\mscomm32.ocx" For Binary As #1
Put #1, , a
Close #1
Shell "regsvr32  " + App.Path & "\mscomm32.ocx", vbHide   '注册
End If


然后在打包的时候就不需要把OCX文件一起打包了，在执行EXE之后会自动生成OCX。