Public Function RegTlbFile(ByVal FileName As String, Optional ByVal UnReg As Boolean) As Boolean
On Error GoTo Xe
Dim Tlb As Object 'As New TypeLibInfo 'Reference to TLBINF32.DLL
Set Tlb = CreateObject("TLI.TypeLibInfo")
Tlb.ContainingFile = FileName
If UnReg Then
Tlb.UnRegister
Else
Tlb.Register
End If
RegTlbFile = True
Xi: Exit Function
Xe: MsgBox Err.Description, vbExclamation 'Facultatif
Resume Xi
End Function
'Ex : RegTlbFile("ole32.tlb")