- O tamanho da imagem é exibido no seu tamanho normal . Configurando a propriedade SizeMode para StretchImage

- O tamanho da miniatura é definido pela linha de código:

Miniatura = Imagem.GetThumbnailImage(50, 50, Nothing, Nothing)

- A imagem do logotipo - Macoratti.net é exibida pelo código:

Dim mini As Image

Dim imagemlogo As New Bitmap("maco10.gif")

piclogo.Image = imagemlogo

Private Sub btnAbrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbrir.Click

Dim Miniatura As Image

Dim picOpen As OpenFileDialog = New OpenFileDialog()

picOpen.Title = "Selecione a imagem."

picOpen.Filter = ("Arquivos suportados|*.gif;*.jpg;*.bmp")

picOpen.ShowDialog()

Dim Imagem As New Bitmap(picOpen.FileName)

picImagem.Image = Imagem

Miniatura = Imagem.GetThumbnailImage(50, 50, Nothing, Nothing)

picMiniatura.Image = Miniatura

End Sub

Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click

Dim picSalva As SaveFileDialog = New SaveFileDialog()

picSalva.Title = "Selecione o arquivo Imagem para salvar como "

picSalva.Filter = ("JPeg Files|*.jpg")

picSalva.ShowDialog()

picMiniatura.Image.Save(picSalva.FileName, ImageFormat.Jpeg)

End Sub

Private Sub btnSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSair.Click

Me.Close()

End Sub

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim mini As Image

Dim imagemlogo As New Bitmap("maco10.gif")

piclogo.Image = imagemlogo

End Sub