Getting all groups that an Active Directory user is a member of in vb.

my topic today we want to find out all groups a given user belongs to. This was written some time ago at a time when we were trying to reorganize an active directory structure.