怎样注册OCX?

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

       我们在编写程序的过程中，时常有一些比较好的控件，想用到自己的程序中，那么就首先要知道如何来注册OCX控件，下面以Formula控件为例进行说明：

 

   在目标机器上注册 Formula One 组件

   在编程中实现注册，代码如下：

1)在 local external function 中定义函数 :

    Function long DllRegisterServer() Library "vcf15.OCX"

2)在 Formula One 控件的 Constructor 事件中增加如下代码：

    long ll_rc

    ll_rc = DllRegisterServer()

    if ll_rc ＞= 0 then

   super :: Event Constructor()

end if 

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>