PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
Timer1.Interval = 10
EndSub
PrivateFunction CaptureScreen() As Image
Dim screenSize As Rectangle = Screen.PrimaryScreen.Bounds
Dim target AsNew Bitmap(screenSize.Width, screenSize.Height)
Using g As Graphics = Graphics.FromImage(target)
g.CopyFromScreen(0, 0, 0, 0, New Size(screenSize.Width, screenSize.Height))
EndUsing
Return target
EndFunction
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
PictureBox1.Image = CaptureScreen()
EndSub