.NET (Core and Framework)

Private Sub Main()
    Try
        ScreenShot()
        If ScreenShot() = True Then
            'Calls a sub that raises an outlook email with the screenshot attached
            OutlookEmail()
            'This try statement will delete the temporary file created with an image of the screenshot
            'This is quicker than using the clipboard and will not affect anything already on there
            Try
                If System.IO.File.Exists(strPath) Then
                    System.IO.File.Delete(strPath)
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        Else
            MessageBox.Show("Failed to take a screenshot - please report to helpdesk")
        End If
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub
Private Function ScreenShot()
    Try
        Dim maxHeight As Integer = 0
        Dim maxWidth As Integer = 0
        For Each scr As Screen In Screen.AllScreens
            maxWidth += scr.Bounds.Width
            If scr.Bounds.Height > maxHeight Then maxHeight = scr.Bounds.Height
        Next
        Dim allScreensCapture As New Bitmap(maxWidth, maxHeight, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
        Dim screenGrab As Bitmap = Nothing
        Dim screenSize As Size = Nothing
        Dim g As Graphics = Nothing
        Dim g2 As Graphics = Graphics.FromImage(allScreensCapture)
        Dim a As New Point(0, 0)
        For Each scr As Screen In Screen.AllScreens
            screenSize = New Size(scr.Bounds.Width, scr.Bounds.Height)
            screenGrab = New Bitmap(scr.Bounds.Width, scr.Bounds.Height)
            g = Graphics.FromImage(screenGrab)
            g.CopyFromScreen(a, New Point(0, 0), screenSize)
            g2.DrawImage(screenGrab, a)
            a.X += scr.Bounds.Width
        Next
        allScreensCapture.Save(strPath, System.Drawing.Imaging.ImageFormat.Jpeg)
        g.Dispose()
        Return True
    Catch ex As Exception
        Return False
    End Try
    strPath = Nothing
End Function
Private Sub OutlookEmail()
    'Create the outlook email, attach the screenshot and present the email to the user to send
    Dim m_email As New Microsoft.Office.Interop.Outlook.Application
    Dim m_message As Microsoft.Office.Interop.Outlook.MailItem = m_email.CreateItem(Interop.Outlook.OlItemType.olMailItem)
    m_message.To = "test@test.co.uk"
    m_message.Subject = "Screenshot of problem attached from " & System.Environment.UserName
    m_message.Attachments.Add(strPath)
    'display the email - dont just send it!
    m_message.Display(m_email)
End Sub
Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
    'The click method for the systray icon
    Main()
End Sub

using(Graphics g = Graphics.FromHwnd(Handle)}
{
    Rectangle backGround = new Rectangle(new Point(0, 0), Size);
    Rectangle clientRect = backGround;
    clientRect.Inflate(-wnd.BorderWidth, -wnd.BorderWidth);
    clientRect.Height -= captionDelta;
    clientRect.Y += captionDelta;
    g.ExcludeClip(clientRect);
    g.FillRectangle(new Pen(BackColor).Brush, new Rectangle(0, 0, Width, borderWidth + captionDelta));
    int halfBorder = borderWidth / 2;
    int halfCaption = wnd.CaptionHeight / 2;
    bool oddSize = (borderWidth % 2) == 1;
    int borderRectTop = Math.Max(wnd.CaptionHeight, 0) / 2;
    // draw two outline rectangles
    Rectangle borderRect = new Rectangle(0, borderRectTop, Width - 2, Height - (borderRectTop + 2));
    g.DrawRectangle(new System.Drawing.Pen(SystemColors.ButtonShadow, 1), borderRect);
    borderRect.Offset(1, 1);
    g.DrawRectangle(new System.Drawing.Pen(SystemColors.ButtonHighlight, 1), borderRect);
}