吉利帝豪二手车贬值:从那里可找到用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
Form1.Top = 0 '设置窗体上边界位置
Form1.Left = 0 '设置窗体左边界位置
Form1.Width = Screen.Width '设置窗体宽度为屏幕宽度
Form1.Height = Screen.Height '设置窗体高度为屏幕高度
Label1.Top = (Screen.Height - Label1.Height) / 2
Label1.Left = (Screen.Width - Label1.Width) / 2
Label2.Top = Label1.Top + Label1.Height + 45
Label2.Left = (Screen.Width - Label2.Width) / 2
End Sub

'Private Sub Form_Resize()
'Dim rc As Long
'If WindowState <> vbMinimized Then
'rc = SetWindowPos(hwnd, hwnd_topmost, 0, 0, 0, 0, swp_nomove Or swp_nosize)
'End If
'End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time

End Sub