'以ComCtl32.ocx为例，其它换相应的名字

Option Explicit
'roect要注册的控件名
Private Sub Command1_Click()
If Dir("C:\WINDOWS\system32\roect", vbDirectory) <> "" Then
    MsgBox "文件夹：C:\WINDOWS\system32\roect 存在！"
    Else
   '以ComCtl32.ocx为例，其它换相应的名字
Declare   Function   RegComCtl32   Lib   "ComCtl32.ocx "   Alias   "DllRegisterServer "   ()   As   Long

Declare   Function   UnRegComCtl32   Lib   "ComCtl32.ocx "   Alias   "DllUnRegisterServer "   ()   As   Long

End If
End Sub
--------------------编程问答-------------------- --------------------编程问答-------------------- 学习了……
搬小板凳，坐沙发听课 --------------------编程问答-------------------- 我压根不明白楼主的意思，听课。。 --------------------编程问答-------------------- 我的一楼又被掩埋了。。。 --------------------编程问答--------------------

引用 4 楼 veron_04 的回复:

我的一楼又被掩埋了。。。

那是因为我要坐沙发……所以…… --------------------编程问答--------------------

--------------------编程问答-------------------- 我表示非常的淡定 --------------------编程问答-------------------- 楼主大概是要注册控件
API声明无论如何也不能放在函数或过程里呀！
Declare Function RegComCtl32 Lib "ComCtl32.ocx " Alias "DllRegisterServer " () As Long

Declare Function UnRegComCtl32 Lib "ComCtl32.ocx " Alias "DllUnRegisterServer " () As Long

在函数或过程里，调用RegComCtl32 就可以注册ComCtl32.ocx 了

补充：VB ,  API