Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Rect As Rectangle = Screen.PrimaryScreen.Bounds
        Using bmp As Bitmap = New Bitmap(Rect.Width, Rect.Height), G As _
          Graphics = Graphics.FromImage(bmp)
            For i As Int32 = 1 To 3
                G.CopyFromScreen(0, 0, 0, 0, bmp.Size)
                bmp.Save("C:/ScreenShots/img" & i.ToString & ".JPG", _
                  System.Drawing.Imaging.ImageFormat.Jpeg)
                Threading.Thread.Sleep(2000)
            Next
        End Using
End Sub   
End Class