Private Sub Form_load()
  

  Me.Hide
  

  CreateObject("Shell.Application").ToggleDesktop
  

  Timer1.Enabled = False
  

  Timer1.Interval = 100
  

  Picture1.AutoRedraw = True: Picture1.ScaleMode = vbPixeks
  

  Picture1.Move 0, 0, Screen.Width, Screen.Height
  

  Picture1.Visible = False
  

  Timer1.Enabled = Ture
  

  End Sub
  

  

  Private Sub Timer1_Timer()
  

  Dim nDC As Long, d1 As Long, nPath As String, nName As String
  

  nPath = "c:\desk"
  

  If Dir(nPath, 23) = "" Then MkDir nPath
  

  nDC = GetWindowDC(0)
  

  dl = BitBlt(Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleWidth, nDC, 0, 0, vbSrcCopy)
  

  ctCi = ctCi + 1
  

  nName = ctCi
  

  dl = 5 - Len(nName)
  

  If dl > 0 Then nName = String(dl, "0") & nName
  

  SavePicture Picture1.Image, nPath & "\P-" & nName & ".bmp"    SystemParametersInfo ByVal 20, Ture, ByVal "C:\desk" + "\P-00001.bmp", 1
  

  '''''''''''''''
  

  Dim Hwd As Long
  

  Dim crn As Long
  

  Hwd = FindWindow("Progman", vbNullString)
  

  rtn = ShowWindow(Hwd, SW_HIDE)
  

  ''''''''''
  

  CreateObject("Shell.Application").ToggleDesktop
  

  '''''
  

  Timer1.Enabled = False
  

  EndEnd Sub