You can retreive the contact list from outlook 2000 from vb using this code

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
' u can use contacts or personnel address book to retrieve it
Set myAddressList = myNameSpace.AddressLists("Contacts")
Set myAddressEntries = myAddressList.AddressEntries

List1.AddItem myAddressEntries.GetFirst

For i = 2 To myAddressEntries.Count

List1.AddItem myAddressEntries.GetNext
Next