This commit is contained in:
2023-12-01 15:35:41 +01:00
parent 418e2703ca
commit 9783c0da18
5 changed files with 19 additions and 4 deletions

View File

@@ -541,6 +541,7 @@ Public Class cProgramFunctions
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
If form Is Nothing Then Return ""
bounds = form.Bounds 'Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)