Windows # '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: Dim Result As Long Result = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&) |