Visualizador de imagens em Visual Basic

Crie um novo projeto.

Na janela que será aberta escolha:

Com o projeto criado, vá para a caixa de ferramentas que fica no lado esquerdo e adicione o componente Menustrip e uma  Picturebox, como na imagem abaixo.

Pronto, agora no seu form. Dê um clique na Picturebox e vá até as propriedades que fica no lado direito da tela.

Depois vá até Sizemode e escolha Zoom.

Agora dê um clique no Menustrip e digite: “Arquivo” sem aspas.

Complete com:

Vamos para a parte boa da coisa, a programação.
No Menustrip. Dê dois cliques no item “Abrir”.
Aparecerá uma janela assim:

Digite o código entre Private sub e End sub.

Dim abrir As New OpenFileDialog

        abrir.Filter = "jpg imagem(*.jpg)|*.jpg|Jpeg imagem(*.jpeg)|*.jpeg|png imagem(*.png)|*.png|Gif imagem(*.gif)|*.gif|ico icone(*.ico)|*.ico|Todos formatos(*)|*"

        abrir.Title = "Abrir imagem"

        If abrir.ShowDialog = DialogResult.OK Then

            PictureBox1.ImageLocation = abrir.FileName

        End If

Volte para o form e no Menustrip, dê dois cliques no item “Salvar”.
Digite o código entre Private sub e End sub.

Dim salvar As New SaveFileDialog

        salvar.Filter = "jpg imagem(*.jpg)|*.jpg|Jpeg imagem(*.jpeg)|*.jpeg|png imagem(*.png)|*.png|Gif imagem(*.gif)|*.gif|ico icone(*.ico)|*.ico|Todos formatos(*)|*"

        salvar.Title = "Salvar imagem"

        If salvar.ShowDialog = DialogResult.OK Then

            PictureBox1.Image.Save(salvar.FileName)

        End If

Volte para o form e no Menustrip, dê dois cliques no item “Sair”.
Digite:

Me.Close()

Agora salve, clicando nos disquetes e escolhendo um local.

Pronto! agora é só executar pressionando a tecla F5 . O executável será criado.

Link para download do projeto e executável.
Visualizador de imagem- visual basic.rar