Active Directory/LDAP :: Getting Lockouttime / Use Directory Searcher To Get A User's lockouttime Value

I am trying to iterate through all the users in a sub node or whatever you call it and get all the users who's lockouttime is not 0. I'm assuming it is 0 if they are not locked out. I can iterate the users but I don't seem to have a grasp of how to use the directory searcher to get a user's lockouttime value. I read so much about how so many conversions have to happen so here is what I have tried.

Using
domain__1 As
DirectoryEntry =
New
DirectoryEntry("LDAP://OU=OuP,OU=Ap,DC=urp,DC=yo,DC=dcn",
"mydommyid",
"mypasscode)
Dim mystr
As
String =
Nothing
For
Each child
As
DirectoryEntry
In domain__1.Children
Dim mydom
As
New
DirectorySearcher(domain__1,
"(" & child.Name.ToString
& ")",
Nothing,
SearchScope.Base)
Dim sr
As
SearchResult = mydom.FindOne()
If sr.Properties("lockouttime")(0)
Then
Dim mylong
As
Long = LongFromLargeInteger(sr.Properties("lockouttime")(0))
Dim mylot
As
DateTime =
DateTime.FromFileTime(mylong)
mystr += mylot.Date & "</br>"
End
If
child.Close()
Next
Label1.Text = mystrEnd Usingregards
Milton