Imports System.DirectoryServices
Public Class Form1
 
    Shared Sub Main()
        Application.Run(New Form1())
    End Sub 'Main
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles _
      TextBox1.TextChanged
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim strUserADsPath As String = "LDAP://testdc1/cn=" + TextBox1.Text + _
        ",cn=klassen,dc=testdc1,dc=local"
        Dim oUser As DirectoryEntry
        oUser = New DirectoryEntry(strUserADsPath)
        ListBox1.Items.Add("Groups to which {0} belongs:" + oUser.Name)
 
        ' Invoke IADsUser::Groups method.
        Dim groups As Object = oUser.Invoke("Groups")
        Dim group As Object
        For Each group In CType(groups, IEnumerable)
            ' Get the Directory Entry.
            Dim groupEntry As New DirectoryEntry(group)
            ListBox1.Items.Add(groupEntry.Name)
        Next group
 
    End Sub
 
 
End Class