[سعود]

مارايك بالنظر للمثال التالي:
http://www.vb-helper.com/howto_net_image_resize.html

---

PHP كود :

Public Class Form1
    Public Shared Function ResizeImage(ByVal InputImage As Image) As Image
        Return New Bitmap(InputImage, New Size(64, 64))
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim o As New OpenFileDialog
        If o.ShowDialog = DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(o.FileName)
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        PictureBox2.Image = ResizeImage(PictureBox1.Image)
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        PictureBox2.Image.Save("newimage.png", Imaging.ImageFormat.Png)
    End Sub
End Class 


---