Poder Hacer login de windows desde VB

[boluart]

haber prueva con esto

Código:

 
private declare function wnetverifypassword lib "mpr.dll" alias "wnetverifypassworda" (byval lpszpassword as string, byref pfmatch as long) as long
public function verify(byval password as string) as boolean
 dim ret as long, match as long
 ret = wnetverifypassword(password, match)
 if ret then
  verify = false
 else
  verify = (match <> 0)
 end if
end function