Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim SourceImage As Image = Image.FromFile("C:\...")
        Dim NewImage As New Bitmap(26, 26)
        Using G As Graphics = Graphics.FromImage(NewImage)
            G.InterpolationMode = InterpolationMode.HighQualityBicubic
            G.DrawImage(SourceImage, New Rectangle(0, 0, 26, 26))
        End Using
        PictureBox1.Image = NewImage
        NewImage.Save("C:\...", Drawing.Imaging.ImageFormat.Png)
 
    End Sub