[elgokr]

وعليكم السلام ورحمة الله وبركاته

تذكر اخى الحبيب ان السلام دائماً لله

فلا تبخل فى قول السلام كاملتاً 

بخصوص ما تريده يمكنك مراجعة الرابط التالى 

https://docs.microsoft.com/en-us/dotnet/...-component

وبخصوص ان يكون الامر كا صورة

فقط قم بوضع هذا الكود فى الفورم

كود :

   Public Sub ScreenCopy(ByVal file As String)
       Dim bounds = Me.Bounds
       Using bitmap As New Bitmap(bounds.Width, bounds.Height)
           Using g = Graphics.FromImage(bitmap)
               g.CopyFromScreen(New Point(bounds.Left, bounds.Top), Point.Empty, bounds.Size)
           End Using
           bitmap.Save(file, System.Drawing.Imaging.ImageFormat.Jpeg)
           Process.Start(file)
       End Using
   End Sub

ثم تعال وقم بانشاء الكود بداخلا زر المطلوب التقاط الصورة

كود :

       Dim Path As String = Application.StartupPath & "\FolderScreen\"
       Dim Name As String = Now.ToString("yyyyMMddHHmmss") & ".jpg"
       If (Not System.IO.Directory.Exists(Path)) Then
           System.IO.Directory.CreateDirectory(Path)
       End If
       ScreenCopy(Path & Name)

تحياتى لك

وتمنياتى لك التوفيق