通过调用regsvr32.exe自动注册控件的函数

来源：access911.net

Function RegOCX(BeReg As String)
    Dim RegFile1 As String
    Dim RegFile2 As String
    Dim RetVal
    RegFile1 = Environ("windir") & "\system\regsvr32.exe "
    RegFile2 = Environ("windir") & "\system32\regsvr32.exe "
    If Dir(RegFile1) <> "" or Dir(RegFile2) <> "" Then
        If Dir(RegFile1) <> "" Then
            RegFile1 = RegFile1 & "/s" & BeReg
            RetVal = Shell(RegFile1, 1)
        Else
            RegFile2 = RegFile2 & "/s" & BeReg
            RetVal = Shell(RegFile2, 1)
        End If
    Else
        MsgBox "找不到regsvr32.exe文件，无法完成自动注册，您需要手动注册" & BeReg & "这个控件", vbCritical, "无法自动注册控件"
    End If
End Function