Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Me.Load Me.PictureBox1.Image = Image.FromFile("..\..\..\chipset13.png") End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim img As New Bitmap(32, 32) Using g As Graphics = Graphics.FromImage(img) g.DrawImage(Me.PictureBox1.Image, New Rectangle(0, 0, 32, 32), _ New Rectangle(0, 0, 16, 16), GraphicsUnit.Pixel) End Using Me.PictureBox2.Image = img End Sub End Class