How To Create .EXE file icon changer,visual basic tutorial

Hello Guyz today i will tell u how to create an .EXE file Icon changer in Vb


1st of all open vb and create new Project

Now from Tool Box add following things

2 textboxes

3 buttons

1 openfiledialog

button1 = browse .exe file

button 2 = browse icon

button 3= Change Icon

textbox1 = .exe file location

textbox2 = ico file location

Now lets Start Coding

first double click on form1 and before
Public Class Form1

add this Code

Imports System.IO

Imports fLaSh.Dissembler

now Double Click on Button 1 and add this code

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

then Double Click on button2 and add this code

  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
        End If

Now double Click on button3 and add this code

If TextBox1.Text = "" Then Exit Sub

If TextBox2.Text = "" Then Exit Sub

Dim oIconFilenathu As New IconFile(TextBox2.Text)

Dim groupIconResource As GroupIconResource = oIconFilenathu.ConvertToGroupIconResource()

groupIconResource.SaveTo(TextBox1.Text)

MsgBox("Icon Changed Successfully!")

your Icon Changer Is Ready

Comment Here if u have difficulty :)