Dim g As Graphics = Me.CreateGraphics Dim bmp As Bitmap
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick bmp = New Bitmap(250, 200) g = Graphics.FromImage(bmp) g.CopyFromScreen(MousePosition.X - 100, MousePosition.Y - 10, 0, 0, New Size(300, 300)) PictureBox1.Image = bmp End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub