CÓDIGO PARA COLOCAR IMAGEM NO FORM

Adicione um PictureBox (Name: picImagem) no Form um Botão (Text: Abrir imagem) um outro Botão (Text: Salvar no HD) e um OpenFileDialog

No PictureBox na propriedade SizeMode mude para: StretchImage
assim a imagem aparecerá completa no PictureBox, e em BorderStyle mude para FixedSingle para aparecer uma borda no PictureBox local da imagem.

Clique duas vezes no Botão (Abrir imagem) e cole o código abaixo:

OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileNames.Length > 0 Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If


Clique duas vezes no Botão (Salvar no HD) e cole o código abaixo:

Dim local As String
Dim img = New Bitmap(picImagem.Image)
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
saveFileDialog1.Title = "Save an Image File"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
local = saveFileDialog1.FileName
img.Save(local, System.Drawing.Imaging.ImageFormat.Jpeg)
End If