Hi all, and sorry for my english

I'm looking how to remove a addresslist in outlook using VB

I want to remove all entry or one entry without using the folder object and
set the ShowAsOutlookAB=False because some time when the folder contact is
corrupt the entry stay in the adresslists

Thanks All for your help


Here my code

Sub Main()
' Create an Outlook application.
Dim oApp As Outlook.Application
Set oApp = New Outlook.Application

' Get the MAPI namespace.
Dim oNS As Outlook.NameSpace
Set oNS = oApp.Session

' Get the AddressLists collection.
Dim oALs As Outlook.AddressLists
Set oALs = oNS.AddressLists
MsgBox (oALs.Count)

' Loop through the AddressLists collection.
Dim i As Integer
Dim oAL As Outlook.AddressList
For i = 1 To oALs.Count
Set oAL = oALs.Item(i)
'
'! Here : how to do oAl.remove ?
'
Next i
End Sub