Function RegOCX(ocxObj As String, filePath As String) As Long    '注册控件
'    On Error Resume Next
    Dim OcxReg1 As String, OcxReg2 As String
    Dim RetVal As Long
    OcxReg1 = filePath & "\" & ocxObj  '判断目标文件是否存在
    OcxReg2 = "C:\WINDOWS\system32\" & ocxObj    '判断来源文件是否存在
    '    MsgBox OcxReg1 & OcxReg2
    If Dir(OcxReg1) = "" Then
        MsgBox OcxReg1 & " 不存在，无法正常注册控件。", , "控件来源"
    Else
        FileCopy OcxReg1, OcxReg2
        If Dir(OcxReg2) = "" Then
            MsgBox " 控件未能正确复制，无法注册控件。", , "控件目标"
        Else
            RetVal = Shell("regsvr32.exe /s " & ocxObj, 1)
            If RetVal = 0 Then
                MsgBox "无法完成自动注册，您需要手动注册【" & ocxObj & "】这个控件，请联系管理员！", , "系统提示"
                Kill OcxReg2
            Else
                MsgBox "控件【" & ocxObj & "】注册成功！", , "系统提示"
                RegOCX = 1
            End If
        End If
    End If
End Function