This bit of code crashes for some strange reason:
Code:
Contact.New1
ContactsCollection.New1( "Contacts" )
ContactsCollection.SortItems( "LastName", false )
For i = 0 To ContactsCollection.Count - 1
Contact.Value = ContactsCollection.GetItem(i)
ListBox1.Add( Contact.FirstName & " " & Contact.LastName )
website = contact.WebPage
msgbox( website )
Next
The problem is on the line:
Code:
website = contact.WebPage
(I'm sure because if I comment it out, it works.)
Any ideas?
Gary
