Bu ne acele anlayamadım? Ücret ödemiyorsunuz bir şey yapmıyorsunuz. Tek yapabileceğiniz soru sormak ve cevaplanması için beklemek.

Ekte yer alan dosyada ekran resmi alma ile ilgili gerekli kodlar çalışır haldedir. Ayrıca Google'dan arama yaparak gelenler için kod :

Dim Boyut As New Size(1024, 768)

        Dim Resim As New Bitmap(1024, 768)

        Dim grafik As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Resim)

        Dim klasorPath As String



        grafik.CopyFromScreen(New Point(0, 0), New Point(0, 0), Boyut)



        If (Not String.IsNullOrEmpty(txtKlasorAdi.Text)) Then

            klasorPath = txtKlasorAdi.Text

        Else

            klasorPath = Application.StartupPath

        End If



        If (Not String.IsNullOrEmpty(txtDosyaAdi.Text)) Then

            Resim.Save(klasorPath & "\\" & txtDosyaAdi.Text & ".bmp")

        Else

            Resim.Save(klasorPath & "\\AccessTrEkranResmi.bmp")

        End If