حفظ WindowsForm  في صورة وطباعتها

Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) ‘ تحديد أبعاد الشاشة
Dim screenCut As New Bitmap(Width, Height) ‘ تحديد أبعاد الصورة حسب أبعاد الفورم
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenCut) 
g.CopyFromScreen(New Point(Location.X, Location.Y), New Point(0, 0), ScreenSize) ‘ حفظ الشاشة وتخزينها حسب بداية الفورم
screenCut.Save("C:\mainimg.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) ‘ حفظ الصورة

Dim source As Image = Bitmap.FromFile("C:\screenCut .jpg")
Using dest As New Bitmap(source, (source.Width + source.Width), (source.Height + source.Height))
dest.Save("c:\newimg.jpg")
End Using