Display all users and their group membership and vice versa

[prevs]

im new to programming, Ive got 2 listboxes 1 shows all the users the other all the groups. I need to select a user from listbox 1 and have their group membership show up in the other. And vice versa select a group from listbox 2 and have the members of the group show up in listbox 1.

heres the code i have so far

Dim oGroup,oUser
 
oUser = Getobject("WinNT://John.com/" & Listbox1.SelectedItem)
ForEach oGroup In oUsers.groups
Listbox2.Items.Add(oGroup.Name)
Next
End sub

 

[zekeman]

Im new too. You'd populate the list box(s) and then when the user clicks
on a line in one of them, it fires an event for that box. You place code in
that event to populate the other box.

 

[prevs]

Thanks managed to get that bit working