A ver si te sirve esto:

Registrando ficheros DLL/OCX

Hay veces en las que es necesario ser capaz de registrar o desregistrar un fichero. Si los nombres de los ficheros se conocen en tiempo de diseño puedes llamar a las rutinas de registro directamente. Por ejemplo :

Declare Function DllRegisterServer Lib "Threed32.OCX" () As Long
Declare Function DllUnregisterServer Lib "Threed32.OCX" () As Long

Para acceder a más de un fichero es necesario el empleo de alias :
Declare Function Register3D Lib "Threed32.OCX" _
Alias "DllRegisterServer" () As Long
Declare Function RegisterMyDLL Lib "MyFile.DLL" _
Alias "DllRegisterServer" () As Long

Si no conocemos los nombres hay dos alternativas:
1. Emplear la utilidad REGSVR32.EXE:
x=Shell("regsvr32 threed32.ocx",1) ' registrar con mensaje
x=Shell("regsvr32 /s threed32.ocx",1) ' registrar sin mensaje
x=Shell("regsvr32 /u threed32.ocx",1) ' desregistrar con mesaje
x=Shell("regsvr32 /u /s threed32.ocx",1) ' desregistrar sin mesaje
El problema es que no puedes saber si el proceso acabó con éxito o no.

2. Emplear las rutinas del SetupKit (ver los fuentes del setup1.vbp como ejemplo):
Declare Function DLLSelfRegister Lib "VB5STKIT.DLL" _
(ByVal lpDllName As String) As Integer
Declare Function GetClsidFromActXFile Lib "VB5STKIT.DLL" _
(ByVal pszFilename As String, ByVal pszProgID As String, _
ByVal pszClsid As String) As Long
Declare Function RegisterTLB Lib "VB5STKIT.DLL" _
(ByVal lpTLBName As String) As Integer