急，急，关于Vsflex7.ocx的自动注册问题

我用abc10 大虾 的下列代码对其他ocx控件进行注册，都能注册成功，但
注册Vsflex7.ocx总是出错。望各位大虾指教。谢谢****'注册、反注册OCX、DLL文件
Private Declare Function LoadLibraryRegister Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function CreateThreadForRegister Lib "kernel32" Alias "CreateThread" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lParameter As Long, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function GetProcAddressRegister Lib "kernel32" Alias "GetProcAddress" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibraryRegister Lib "kernel32" Alias "FreeLibrary" (ByVal hLibModule As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetExitCodeThread Lib "kernel32" (ByVal hThread As Long, lpExitCode As Long) As Long
Private Declare Sub ExitThread Lib "kernel32" (ByVal dwExitCode As Long)
Public Function fun_RegServer(ByVal filename As String) As Boolean
'注册
       fun_RegServer = RegSvr32(filename, False)
End Function
 
Public Function fun_UnRegServer(ByVal filename As String) As Boolean
'反注册
       fun_UnRegServer = RegSvr32(filename, True)
End Function
         
Private Function RegSvr32(ByVal filename As String, bUnReg As Boolean) As Boolean
       Dim lLib   As Long
       Dim lProcAddress   As Long
       Dim lThreadID   As Long
       Dim lSuccess   As Long
       Dim lExitCode   As Long
       Dim lThread   As Long
       Dim bAns   As Boolean
       Dim sPurpose   As String
       sPurpose = IIf(bUnReg, "DllUnregisterServer", "DllRegisterServer")
       If Dir(filename) = "" Then Exit Function
       lLib = LoadLibraryRegister(filename)
       '载入文件
       If lLib = 0 Then Exit Function
       lProcAddress = GetProcAddressRegister(lLib, sPurpose)
       If lProcAddress = 0 Then
           '不是ActiveX控件
             FreeLibraryRegister lLib
             Exit Function
       Else
             lThread = CreateThreadForRegister(ByVal 0&, 0&, ByVal lProcAddress, ByVal 0&, 0&, lThread)
             If lThread Then
                       lSuccess = (WaitForSingleObject(lThread, 10000) = 0)
                       If Not lSuccess Then
                             Call GetExitCodeThread(lThread, lExitCode)
                             Call ExitThread(lExitCode)
                             bAns = False
                             FreeLibraryRegister lLib
                             Exit Function
                       Else
                             bAns = True
                       End If
                       CloseHandle lThread
                       FreeLibraryRegister lLib
             Else
                     FreeLibraryRegister lLib
             End If
       End If
       RegSvr32 = bAns
End Function