[evilivid]

Code

Dim b As New ListViewItem
    'coded by xvipx  
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      l1.ContextMenuStrip = ContextMenuStrip1

    End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

      Try
      Dim bounds As Rectangle
      Dim screenshot As System.Drawing.Bitmap
      Dim graph As Graphics
      bounds = Screen.PrimaryScreen.Bounds
      screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
      graph = Graphics.FromImage(screenshot)
      graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
      PictureBox1.Image = screenshot
      l1.SmallImageList = img
      l1.LargeImageList = img
      img.Images.Clear()
      Dim size As New Size(l1.Columns(0).Width, l1.Columns(0).Width)
      ' Dim x As New Size(HScrollBar1.Value, HScrollBar1.Value) ' controle size by hscorlba

      ' img.ImageSize = x

      img.ImageSize = size
      img.Images.Add(PictureBox1.Image)
      PictureBox1.Hide()

      Catch ex As Exception
      End Try

    End Sub

    Private Sub JffffToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles JffffToolStripMenuItem.Click
      Timer1.Start()
      b.SubItems.Add("xvipx")
      b.ImageIndex = 0
      l1.Items.Add(b)
    End Sub

Much easier than downloading your entire project files.

[Only3]

why listview
Me.Controls.Add(New PictureBox With {.Dock = DockStyle.Fill, .SizeMode = PictureBoxSizeMode.StretchImage, .Image = Screen})