Register/Unregister ActiveX Controls Using Code

Register/Unregister ActiveX Controls Using Code This example will show you how to register and unregister ActiveX controls from Visual Basic using code, instead of using the Regsvr32.exe Preparations Add 2 Command Buttons to your form. Press the first to unregister the control, and the second to register it. Module Code 'replace the two "d:\MyDir\MyFile.OCX" below with the name of the 'OCX file you want to register or unregister Public Declare Function RegControl Lib "d:\MyDir\MyFile.OCX" _ Alias "DllRegisterServer" () As Long Public Declare Function UnRegControl Lib "d:\MyDir\MyFile.OCX" _ Alias "DllUnregisterServer" () As Long Public Const S_OK = &H0 Sub RegisterControlSub() On Error GoTo Err_Registration_Failed If RegControl = S_OK Then MsgBox "Registered Successfully" Else MsgBox "Not Registered" End If Exit Sub Err_Registration_Failed: MsgBox "Error: " & Err.Number & " " & Err.Description End Sub Sub UnRegisterControlSub() On Error GoTo Err_Unregistration_Failed If UnRegControl = S_OK Then MsgBox "Unregistered Successfully" Else MsgBox "Not Unregistered" End If Exit Sub Err_Unregistration_Failed: MsgBox "Error: " & Err.Number & " " & Err.Description End Sub Form Code Private Sub Command1_Click() UnRegisterControlSub End Sub Private Sub Command2_Click() RegisterControlSub End Sub