Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_SYSCOMMAnd = &H112 Private Const SC_SCREENSAVE = &HF140&
Private Sub Command1_Click() SendMessage hwnd, WM_SYSCOMMAnd, SC_SCREENSAVE, ByVal 0& End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Запуск заставки", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!