[Icon Changer] Browse Icon Button

OpenFileDialog1.DefaultExt = "ico"
  OpenFileDialog1.Filter = "icon files (*.ico)|*.ico"
  OpenFileDialog1.FilterIndex = 1
  If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
    TextBox2.Text = String.Empty
    TextBox2.Text = OpenFileDialog1.FileName
    PictureBox1.BackgroundImage = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)

  End If