PrivateSub btn_capture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_capture.Click
Dim w AsInteger = Screen.PrimaryScreen.WorkingArea.Width
Dim h AsInteger = Screen.PrimaryScreen.WorkingArea.Height
Dim bim AsNew Bitmap(w, h)
Dim g As Graphics = Graphics.FromImage(bim)
Dim siz As Drawing.Size
Me.Visible = False
siz.Width = w
siz.Height = h
g.CopyFromScreen(0, 0, 0, 0, siz)
Me.BackgroundImage = bim
Me.Visible = True
EndSub