This worked in VB6 to fill a list box..

Private Sub Command2_Click()
Dim Counter As Long
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
For Each olAL In olNS.AddressLists
For Each olAE In olAL.AddressEntries
Counter = Counter + 1
Label8.Caption = Counter
ListView1.AddItem (olAE.Name)
Next
Next
End Sub

BUT.... syntex checks with .NET

What am I doing wrong.. Help