' Registrera ett type library

Sub RegisterTypeLib(ByVal TypeLibFile As String)
Dim TLI As New TLIApplication
' raises an error if unable to register
' (e.g. file not found or not a TLB)
TLI.TypeLibInfoFromFile(TypeLibFile).Register
End Sub

' Avregistrera ett type library

Sub UnregisterTypeLib(ByVal TypeLibFile As String)
Dim TLI As New TLIApplication
' raises an error if unable to unregister
TLI.TypeLibInfoFromFile(TypeLibFile).UnRegister
End Sub