Dim screenshot As System.Drawing.Bitmap
        Dim graph As Graphics
        bounds = Screen.PrimaryScreen.Bounds
        screenshot = New System.Drawing.Bitmap(252, 136, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        graph = Graphics.FromImage(screenshot)
        graph.CopyFromScreen(101, 297, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
        screenshot.Save(Application.StartupPath + "\PM.jpg")
Dosya_Eki = New System.Net.Mail.Attachment(Application.StartupPath + "\PM.jpg")

Mail.Attachments.Add(Dosya_Eki)

Dim screenshot As System.Drawing.Bitmap 
		screenshot = New System.Drawing.Bitmap(252, 136, System.Drawing.Imaging.PixelFormat.Format32bppArgb) 
		Dim graph As Graphics
		graph = Graphics.FromImage(screenshot) 
		graph.CopyFromScreen(101, 297, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)
		Dim mail As New MailMessage()
		Dim SmtpServer As New SmtpClient("smtp.gmail.com")
		mail.From = New MailAddress("kendi email adresi")
		mail.[To].Add("giden email adresi")
		mail.Subject = "Test Mail"
		mail.Body = "mail with attachment"
		SmtpServer.Port = 587
		SmtpServer.Credentials = New System.Net.NetworkCredential("kullanıcıadı", "şifre")
		SmtpServer.EnableSsl = True
		Dim ms As New MemoryStream()
		screenshot.Save(ms, ImageFormat.Jpeg)
		ms.Position = 0
		Dim ct As New ContentType()
		ct.MediaType = MediaTypeNames.Image.Jpeg
		Dim data as New Attachment(ms, ct)
		mail.Attachments.Add(data)
		SmtpServer.Send(mail)
		
		ms.Dispose()