Modified by Krusty
Code:
Public Class Form1
	Dim file As String
	Dim icon1 As String
	Dim show_Icon As Icon

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	'Gucken,ob der Rehacker schon vorhanden ist.
    	If Not My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\rehacker.exe") Then
        	'Wenn der Reshacker noch niht vorhanden ist, dann droppen.
        	My.Computer.FileSystem.WriteAllBytes(My.Application.Info.DirectoryPath & "\reshacker.exe", My.Resources.ResHacker, False)
    	End If
    	'Reshacker mit der Commandline -delete und den Parametern starten, um das Icon der Datei zu löschen
    	Shell("reshacker.exe -delete " & Chr(34) & file & Chr(34) & "," & Chr(34) & file & Chr(34) & " ,ICONGROUP,,")
    	System.Threading.Thread.Sleep("200")
    	'Reshacker mit der Commantline -add und den Parametern starten, um ein Icon einzufgen.
    	Shell("reshacker.exe -add " & Chr(34) & file & Chr(34) & "," & Chr(34) & file & Chr(34) & ", " & icon1 & ",ICONGROUP,1,1033")
    	MsgBox("Icon wurde ersetzt", MsgBoxStyle.Information, "Erfolg")

	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    	'Datei aussuchen
    	OpenFileDialog1.ShowDialog()
    	file = OpenFileDialog1.FileName
    	TextBox1.Text = file
	End Sub

	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    	'Icon aussuchen
    	OpenFileDialog2.ShowDialog()
    	icon1 = OpenFileDialog2.FileName
    	TextBox2.Text = icon1
    	Try
        	'Icon in die Picture Box laden
        	show_Icon = New Icon(icon1, 32, 32)
        	PictureBox1.Image = show_Icon.ToBitmap

    	Catch ex As Exception
        	MsgBox("Eventuell ist die Datei, die Sie ausgewählt haben nicht im .ico Format", MsgBoxStyle.Critical, "Error")
    	End Try

	End Sub