home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / scrsav / scrsave.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  1.1 KB  |  34 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ClientHeight    =   345
  5.    ClientLeft      =   3750
  6.    ClientTop       =   4260
  7.    ClientWidth     =   825
  8.    Height          =   750
  9.    Left            =   3690
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   345
  14.    ScaleWidth      =   825
  15.    Top             =   3915
  16.    Width           =   945
  17.    Begin CommandButton Command1 
  18.       BackColor       =   &H00C0C0C0&
  19.       Caption         =   "Saver"
  20.       Height          =   375
  21.       Left            =   0
  22.       TabIndex        =   0
  23.       TabStop         =   0   'False
  24.       Top             =   0
  25.       Width           =   855
  26.    End
  27. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  28. Sub Command1_Click ()
  29.     Dim Result As Long
  30.     Const WM_SYSCOMMAND = &H112
  31.     Const SC_SCREENSAVE = &HF140
  32.     Result = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
  33. End Sub
  34.