[Icon Changer] Browse Button

OpenFileDialog1.DefaultExt = "exe"
  OpenFileDialog1.Filter = "exe files (*.exe)|*.exe"
  OpenFileDialog1.FilterIndex = 1
  If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
    TextBox1.Text = String.Empty
    TextBox1.Text = OpenFileDialog1.FileName

  End If