这个 是BAT程序：RegSvr32.exe CnCalendar.ocx
这个控件为什么过一阵子就要重新运行一次注册过程，要不然就无法加载？
一个农历控件！求指点！

你吧他复制到system32下边。然后再注册一下

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