求助一个日期控件注册问题

Private Const OCXName = "CnCalendar.ocx"

Private Sub Form_Initialize()
        InitCommonControls

        SystemPath = GetSysPath & "\" & OCXName
        OcxPath = App.Path & "\" & OCXName
        
        If IsFileExist(OcxPath) = True Then
            If IsFileExist(SystemPath) = False Then
                FileCopy OcxPath, SystemPath
                A = Shell("regsvr32 " & SystemPath & " /s", vbHide)
            End If
        End If
End Sub