Come mettere in Sospensione il Sistema

Inserire dichiarazione e costanti in un modulo Bas:

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam _
As Long) As Long

Public Const WM_SYSCOMMAND = &H112
Public Const SC_SCREENSAVE = &HF140

Inserire il seguente codice in una routine:

Public Sub Sospendi(frm As Form)
    Dim Result As Long
    Result = SendMessage(frm.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub

In un Form inserisci un CommandButton ed il seguente codice:

Private Sub Command1_Click()
    Sospensione Me
End Sub

Testato su: Windows 98