Is there any way to get round the problem of when a wrong password is put in here too many times it takes something like 4 min to reply.

Code:
Private Declare Function WNetVerifyPassword Lib "mpr.dll" _
                Alias "WNetVerifyPasswordA" _
                (ByVal lpszPassword As String, _
                ByRef pfMatch As Long) As Long


Public Function VerifyWindowsLoginUserPassword(ByVal Password As String) As Boolean
    Dim rtn As Long, Match As Long
    rtn = WNetVerifyPassword(Password, Match)
    If rtn Then
        VerifyWindowsLoginUserPassword = False
    Else
        VerifyWindowsLoginUserPassword = (Match <> 0)
    End If
End Function