[Uzvern]

Мессир, чтобы сохранить файл можно воспользоваться этим кодом, а вот как изменить размеры сохраняемого файла, это мне тоже интерестно

Код:

    Dim SFD As New SaveFileDialog
    Dim PB As PictureBox

    Sub SaveImage(ByVal PictureBox As PictureBox)
        PB = PictureBox
        AddHandler SFD.FileOk, AddressOf SFD_FO
        SFD.ShowDialog()
    End Sub

    Sub SFD_FO()
        PB.Image.Save(SFD.FileName)
    End Sub

чтобы загрузить изображение в PictureBox

Код:

    Sub PictureLoad(ByVal PictureBox As PictureBox, ByVal Path As String)
        PictureBox.Load(Path)
        PictureBox.Size = New Size(150, 110)
        PictureBox.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub