.NET watch screen capture in listview [src] vb.net

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