怎样用VB代码注册控件

Question

怎样在VB中用代码注册控件，急在线等！！！！

Answer 1

Private Sub Command1_Click()
Shell "regsvr32 f:\aa.ocx"
End Sub

Answer 2

--- tztz520(午夜逛街) --
这样的话经常注册失败，不知道还有好的办法吗？

Answer 3

动态注册和反注册ActiveX的控件:
http://www.applevb.com/sourcecode/control.zip通过windows api实现的。

Answer 4

看了 TechnoFantasy(冰儿马甲www.applevb.com) 的注册代码，非常好。
但如果想实现把指定的某一个文件夹下的那些文件或所有文件注册怎么实现？
只能把要注册的文件写入程序代码吗？
我现在使用的方法是 Call Shell(SP & "Regsvr32.exe " & SP & FN)
SP是系统目录 变量
FN是文件名称 变量但是 Regsvr32.exe 这个东西 每注册完一个文件都会有一个提示框，一般我们会连续注册很多个文件，结果就是出显了很多的提示框。有没有办法让这个框不要显示出来？楼主的标准答案是什么？

Answer 5

If right(App.Path,1) <> "\" Then
Shell "Regsvr32.exe " + App.Path + "\MyCtrl.ocx/s"
Else
Shell "Regsvr32.exe " + App.Path + "MyCtrl.ocx/s"
End If