Make your own free website on

[an error occurred while processing this directive]
Private Declare Function VerifyScreenSavePwd Lib "password.cpl" (ByVal hwnd As Long) As Boolean
Private Sub Form_Load()
    'KPD-Team 2000
    Dim Ret As Boolean
    'Ask the user to type in the password
    Ret = VerifyScreenSavePwd(Me.hwnd)
    If Ret Then
        'If there's no password, VerifyScreenSavePwd automatically returns True
        MsgBox "OK.... you've entered the correct password, or there is no screen saver password!"
        MsgBox "Invalid password entered"
    End If
End Sub

Copyright © 1998-2000, The KPD-Team.
Send mail to with comments about this web site.
This site is located at