vb做好的ocx，怎样在安装程序中注册安装解决方法

vb做好的ocx，怎样在安装程序中注册安装
做好了，一个ocx控件。怎样在vb的安装程序中注册使用啊。就是把做好的ocx控件包含到安装程序中一运行安装程序就把这个控件安装到本机啊。

谢谢各位了！！！

本人第一次用vb做东西！！

[解决办法]
运行----Regsvr32 ocx控件的路径----确定
[解决办法]
1.在本机的话 你可以在左下角点 开始 运行 输入 regsvr32 ?:\windows\system32\???.ocx

2.要在客户端安装的话, 你可以把???.ocx捆在 资源文件 中,在客户端释放并注册.
[解决办法]

VB code

Shell "Regsvr32 C:\WINDOWS\system32\VCFI32.OCX"
[解决办法]
当你设定好后,安装的过程中安装软件自动给OCX,dll注册.
[解决办法]
捆绑在资源区中，如果你知道PE文件里有资源区这么回事的话，调用api的beginupdateresource等函数将你的ocx写入存储，再程序中加入一句释放资源的代码，用loadresdata就好了，vb内置的，再加一句shell的代码就好了，用shell调用regsvr32来注册
VB code
Sub main()    If Dir(CheckFilePath(App.Path) & "123456.ocx") = vbNullString Then        Call ResShiFang(CheckFilePath(App.Path) & "CnCalendar.ocx")        Sleep 1000        Shell "regsvr32 " & CheckFilePath(App.Path) & "123456.ocx /s", vbNormalFocus  '注册控件,隐藏注册    End If    Form1.Show '注册成功，才执行下一步，为显示窗体End SubPrivate Sub ResShiFang(vDataFileName As String)    Dim DataFile() As Byte    DataFile = LoadResData(101, "CUSTOM") '从资源文件读入文件内容    Open vDataFileName For Binary As #1  '建立数据文件，以二进制方式打开    Put #1, , DataFile    Close #1    '写完后关闭文件End SubFunction CheckFilePath(Path As String) As String    '检查档位文件是否在根目录下    If Right(Path, 1) <> "\" Then        CheckFilePath = Path & "\"    Else        CheckFilePath = Path    End IfEnd Function