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.Format24bppRgb)

graph = Graphics.FromImage(screenshot)

graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)

Label4.Image = screenshot

Bazı sitelerde bu komutu gördüm bit ayarlıyorum felan 

Dim savefiledialog1 As New SaveFileDialog
            Try
                savefiledialog1.Title = "byStzolen"
                savefiledialog1.FileName = ""
                savefiledialog1.Filter = "JPEG |*.jpeg"
                If savefiledialog1.ShowDialog() = DialogResult.OK Then
                    Label4.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
                End If
            Catch ex As Exception 'Do Nothing
            End Try

Birde böyle bir kaydetme bölümü mevcut format ayarlama seçenekleri de var

Şöyleki benim belirlediğim bir konum olcak örnek ""C:\Users\Kullanıcılar\Documents\Ekran Görüntüleri"" gibi eğer dosya yoksa oluştursun ben her ekran görüntüsü aldığımda bu klasöre otomatik kaydedecek yani şu alt bölümü istemiyorum manuel olmasın.

Bu komutlar ben tuş ile kullanıyorum buton değil yani mesela "end" tuşuna basınca ekran görüntüsü alsın belirlediğim konuma kaydetsin program içinden dosya yolu seçmek istemiyorum komutlar bölümüne yazılsın.