从那里可找到用vb制作的屏保，简单一点就可以

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40&
Dim retValue As Long
'Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim r
If KeyCode = 90 And Shift = 2 Then
End
r = ShowCursor(bShow) = True
End If
End Sub

Private Sub Form_Load()
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 429, 407, SWP_SHOWWINDOW)
Dim r
r = ShowCursor(bShow) = False
F