Turn on the screen saver?

[deoblo1]

Is there a way I can turn on the screen saver, and also password protect it? or select it ect.

Try this:

    Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg _
    As Long, ByVal wParam As Long, ByVal lParam As Long) _
    As Long 
    
    Const WM_SYSCOMMAND = &H112&
    Const SC_SCREENSAVE = &HF140&

    Dim result As Long
    result = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)