Banada böyle bir uygulama lazımdı

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)
            PictureBox.Image = screenshot
            Timer4.Enabled = True
            Me.Opacity = 100

            'Kaydedeceği dosya yolu yok ise oluştur
            If Not My.Computer.FileSystem.DirectoryExists("C:\Users\Documents\Ekran Görüntüleri") Then
                My.Computer.FileSystem.CreateDirectory("C:\Users\Documents\Ekran Görüntüleri")
            End If
            'Kaydedeceği dosya yolu var ise oluşturma
            Dim counter = My.Computer.FileSystem.GetFiles("C:\Users\Documents\ Ekran Görüntüleri")
            Dim intCount As Integer
            intCount = CStr(counter.Count)

            'Dosyayı kaydet
            Dim bystzolen As String
            bystzolen = "Ekran görüntüsü" & intCount + 1
            PictureBox1.Image.Save("C:\Users\Documents\ Ekran Görüntüleri\" & bystzolen & ".png", System.Drawing.Imaging.ImageFormat.Png)

Arkadaşlar ekran görüntüsü alıp otomatik kaydetmek için bu komutu hazırladım uğraştığım bir komuttu butonunuza ekliyorsunuz bastığınızda belirlediğiniz konuma kaydediyor yerleri kendinize göre değiştirirsiniz. Bunu bir tuş ile çalıştırmak isterseniz discord kanalımda anlatırım. iyi günler dilerim..