MS_08.03

app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb

@@ -7,12 +7,7 @@ Public Class frmUserKonfig_AddUsers
     Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             Cursor = Cursors.WaitCursor
-            Dim groups = GetActiveDirectoryGroups()
-            If Not IsNothing(groups) Then
-                For Each group In groups
-                    lbGroups.Items.Add(group)
-                Next
-            End If
+            GetGroups(Environment.UserName)
            
         Catch ex As Exception
             MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)