Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            PictureBox1.ImageLocation = OpenFileDialog1.FileName
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ComboBox1.SelectedItem = "PNG" Then
            SaveFileDialog1.Filter = "PNG |*.png"
            If SaveFileDialog1.ShowDialog = DialogResult.OK Then
                PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Png)
                TextBox2.Text = SaveFileDialog1.FileName
            End If
        End If
        If ComboBox1.SelectedItem = "GIF" Then
            SaveFileDialog1.Filter = "GIF |*.gif"
            If SaveFileDialog1.ShowDialog = DialogResult.OK Then
                PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Gif)
                TextBox2.Text = SaveFileDialog1.FileName
            End If
        End If
        If ComboBox1.SelectedItem = "BMP" Then
            SaveFileDialog1.Filter = "BMP |*.bmp"
            If SaveFileDialog1.ShowDialog = DialogResult.OK Then
                PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
                TextBox2.Text = SaveFileDialog1.FileName
            End If
        End If
        If ComboBox1.SelectedItem = "JPEG" Then
            SaveFileDialog1.Filter = "JPEG |*.jpeg"
            If SaveFileDialog1.ShowDialog = DialogResult.OK Then
                PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
                TextBox2.Text = SaveFileDialog1.FileName
            End If
        End If
    End Sub
End Class