Vayse,

Imports System.DirectoryServices

   Private Sub LoadAllUsers()
       'This will list all users in the Domain

       Dim strDirEntryPath As String = "WinNT://" & MyDomain & "/" &
MyServer & "/" & "Domain Users" & ",group"

       Dim group As New DirectoryEntry(strDirEntryPath)
       Dim users As Object
       users = group.Invoke("members")
       Dim user1 As Object

       'Datatable just used for sorting
       Dim DT As New DataTable

       Dim DC As New DataColumn("users")
       DT.Columns.Add(DC)

       Dim r1 As DataRow
       Dim StrName As String

       'Add each user to the data table
       For Each user1 In CType(users, IEnumerable)
           r1 = DT.NewRow
           Dim userEntry As New
System.DirectoryServices.DirectoryEntry(user1)
           r1.Item(0) = userEntry.Name
           DT.Rows.Add(r1)
       Next

       'Use Data View to Sort Articles
       Dim DV As New DataView(DT)
       DV.Sort = "users asc"

       Dim intCount As Integer = 0

       For intCount = 0 To DV.Count - 1
           Me.cboUsers.Items.Add(DV.Item(intCount).Row.Item(0))
       Next
   End Sub