Private Sub ChooseDomain(ByVal strDomain As String)
        Dim ChildEntry As DirectoryServices.DirectoryEntry
        Dim ParentEntry As New DirectoryServices.DirectoryEntry()
        Dim objListViewGroups As ListView = lstAllGroups
 
        'lstAllGroups mit Gruppen füllen
        ParentEntry.Path = "WinNT://" & strDomain
        For Each ChildEntry In ParentEntry.Children
            Select Case ChildEntry.SchemaClassName
                Case "Group"
                    objListViewGroups.Items.Add(ChildEntry.Name, 0)
            End Select
        Next
    End Sub