Public Class Form1 Dim pickedimage As Image Dim firsttimenumeripcupdown As Boolean = True Private Sub UpdateImage() Try PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName) Dim TheImage As Bitmap = PictureBox1.Image For i = 0 To TheImage.Height - 1 For g = 0 To NumericUpDown1.Value TheImage.SetPixel(g, i, Button2.BackColor) TheImage.SetPixel(TheImage.Width - (g 1), i, Button2.BackColor) Next Next For i = 0 To TheImage.Width - 1 For g = 0 To NumericUpDown1.Value TheImage.SetPixel(i, g, Button2.BackColor) TheImage.SetPixel(i, TheImage.Height - (g 1), Button2.BackColor) Next Next PictureBox1.Image = TheImage Catch ex As Exception MsgBox("Error, probably no image or file is not image, or image is uneditable.") End Try End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load SaveFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures PictureBox1.Image = PictureBox1.ErrorImage PictureBox1.Size = New Size(PictureBox1.ErrorImage.Width, PictureBox1.ErrorImage.Height) OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures End Sub Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged If firsttimenumeripcupdown = False Then UpdateImage() End If firsttimenumeripcupdown = False End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try OpenFileDialog1.ShowDialog() If OpenFileDialog1.CheckFileExists = True Then pickedimage = Image.FromFile(OpenFileDialog1.FileName) PictureBox1.Size = New Size(pickedimage.Width, pickedimage.Height) PictureBox1.Image = pickedimage TextBox1.Text = OpenFileDialog1.FileName End If UpdateImage() Catch ex As Exception MsgBox("Error, probably no image or file is not image, or image is uneditable.") End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ColorDialog1.ShowDialog() Button2.BackColor = ColorDialog1.Color UpdateImage() End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click Dim dialogok As Integer = SaveFileDialog1.ShowDialog() If dialogok = 1 Then If SaveFileDialog1.FilterIndex = 1 Then Dim bitmap As Bitmap = PictureBox1.Image bitmap.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Png) End If If SaveFileDialog1.FilterIndex = 2 Then Dim bitmap As Bitmap = PictureBox1.Image bitmap.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Gif) End If If SaveFileDialog1.FilterIndex = 3 Then Dim bitmap As Bitmap = PictureBox1.Image bitmap.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Bmp) End If If SaveFileDialog1.FilterIndex = 4 Then Dim bitmap As Bitmap = PictureBox1.Image bitmap.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Jpeg) End If If SaveFileDialog1.FilterIndex = 5 Then Dim bitmap As Bitmap = PictureBox1.Image bitmap.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Tiff) End If End If End SubEnd Class