Public Shared Function IsAccountActive(ByVal userAccountControl As Integer) As _
  Boolean
        Dim accountDisabled As Integer = Convert.ToInt32( _
        ADAccountOptions.UF_ACCOUNTDISABLE)
        Dim flagExists As Integer = userAccountControl And accountDisabled
        'if a match is found, then the disabled flag exists within the control 
        ' flags
        If flagExists > 0 Then
            Return False
        Else
            Return True
        End If
    End Function