Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim frm = Form.ActiveForm
Using bmp = New Bitmap(frm.Width, frm.Height)
frm.DrawToBitmap(bmp, New Rectangle(0, 0, bmp.Width, bmp.Height))
bmp.Save("c:\temp\screenshot.png")
End Using
End Sub