Supón que tienes un textbox para el usuario, otro más para la contraseña, y un botón de "Aceptar", te paso el código que iría dentro del eventon Clic del botón:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim username As String = tbusuario.Text.Trim
Dim pwd As String = tbPass.Text
Dim strPath As String = "LDAP://elnombrede.tudominio/DC=elnombrede, DC=tudominio"
Dim strDomain As String = "dominio"
Dim domainAndUsername As String = strDomain + "\" + username
Dim entry As DirectoryEntry = New DirectoryEntry(strPath, domainAndUsername, pwd)
Dim search As DirectorySearcher = New DirectorySearcher(entry)
Try
If search.FindAll().Count <> 0 Then 'Esto quiere decir que las credenciales se validaron bien
'EL USUARIO SE IDENTIFICO CORRECTAMENTE
Else
'Los datos son incorrectos
End If
Catch ex As Exception
End Try
End Sub
