发表评论(0)作者：, 平台：, 阅读：11846, 日期：2000-03-12

声明：

Private Declare Function SendMessage Lib "user32" _

Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg _

As Long, ByVal wParam As Long, ByVal lParam As Long) _

As Long

Const WM_SYSCOMMAND = &H112&

Const SC_SCREENSAVE = &HF140&

代码：

Dim result As Long

result = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)