public Function RegisterComponent(byval FileName$, _
byval RegFunction as REGISTER_FUNCTIONS) as STATUS

'************************************************************
'Author: Vasudevan S
'Helena, MT
'Function: RegisterComponent
'Purpose: Registers/Unregisters any ActiveX DLL/EXE/OCX
'component
'Entry Points in ActiveX DLL/EXE/OCX are DllRegisterServer
'and DllUnRegisterServer
'input: FileName: Any valid file with complete path
'RegFunction: Enumerated Type(DllRegisterServer,
'DllUnregisterServer)
'Returns: Returns the status of the call in a enumerated type
'Comments: The utility REGSVR32.EXE need not be used to
'register/unregister ActiveXcomponents.
'This code can be embedded inside any application
' that needs to register/unregister any ActiveX
'component from within the code base
'SAMPLE FORM is INCLUDED
'WORKS IN VB5.0/6.0

'HOW to CALL:
'-----------
'Dim mEnum as STATUS
'
'to REGISTER A COMPONENT USE
'mEnum = RegisterComponent("C:windowssystemfilename.dll",
'DllRegisterServer) 'to Register
'
'If mEnum = [File Could Not Be Loaded Into Memory Space] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [Not A Valid ActiveX Component] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registration Failed] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registered Successfully] _
'then
' MsgBox "Your Message Here", vbExclamation
'End If
'
'to UNREGISTER A COMPONENT USE
'mEnum = RegisterComponent("C:windowssystemfilename.dll", _
'DllUnRegisterServer) 'to UnRegister
'
'If mEnum = [File Could Not Be Loaded Into Memory Space] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [Not A Valid ActiveX Component] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component Registration Failed] then
' MsgBox "Your Message Here", vbExclamation
'ElseIf mEnum = [ActiveX Component UnRegistered Successfully] _
'then
' MsgBox "Your Message Here", vbExclamation
'End If
'************************************************************

Source :