Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim g As Graphics = PictureBox1.CreateGraphics() Dim rect As New Rectangle(10, 10, 100, 100) Me.Controls.Remove(Button1) g.DrawImage(img, 0, 0, rect, GraphicsUnit.Pixel) g.Dispose() End Sub