DirectoryServices Listing User Groups

i am using the directoryservices class in vb.net and need to be able to return all the users that belong to a particular group.i have code that returns all groups that a user belongs to. here is the code that returns all groups that a user belongs to. in this example i am able to create a directory entry at the top of my domain and perform a search for the samAccountName. i want to be able to do the same but perform a search for the group name and return all members of that group.

Public sub Groups()
            Dim directory, dir2 As DirectoryEntry
            Dim searcher As DirectorySearcher
            Dim sr As SearchResult
            Dim rpc As ResultPropertyCollection
            Dim i As Integer

            Try
                  directory = New DirectoryEntry("LDAP://" & mvarDomain)
                  searcher = New DirectorySearcher(directory, "(&(objectClass=user)(samAccountName=" & mvarUserName & "))")
                  searcher.PropertiesToLoad.Add("memberof")
                  sr = searcher.FindOne
                  rpc = sr.Properties
                  For i = 0 To (rpc.Item("memberof").Count - 1)
                        dir2 = New DirectoryEntry("LDAP://" & rpc.Item("memberof").Item(i).ToString)
                        MsgBox(dir2.Name)
                  Next
            Catch ex As Exception
                  Throw (ex)
            End Try
End FunctionStart Free Trial