使用方法创建dll对象然后使用addtostartup方法
以分号作为多个启动的分割。我使用的注册表根健是HKEY_CURRENT_USER
没有提供设置注册表根健的方法,如果需要可以加一个
Dim regservDll As Object
Dim willAddFile As String
willAddFile = App.Path & "\FD.dvb;" & App.Path & "\suny.vlx;" & App.Path & "\ft.vlx;" & App.Path & "\tcsz.lsp"
Set regservDll = CreateObject("setCADSupportPath.clswinapiapp")
If regservDll.AddToStartup(willAddFile) = False Then
MsgBox "Can't add progress to CAD setup reg" & vbCr & "U can add again or by youself :)"
End If