private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as int32, byval wmsg as int32, byval wparam
as int32, byval lparam as int32) as int32 private const hwnd_broadcast = &hffff& private const wm_syscommand = &h112 private const sc_screensave = &hf140&
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click sendmessage(hwnd_broadcast, wm_syscommand, sc_screensave, 0) end sub
