Программа распаковывает на кнопку - VB

Формулировка задачи:

Привет всем я обсолютный новичёк. До этого писал просто инжекторы для игр) Так вот хочу спросить как можно сделать так чтобы запускаешь программу,нажимаешь на кнопку и файл появляется на робочем столе) Если можно то всё в мельчайших подробностях,если даёте код говорите как и куда его вставлять. И ещё я незнаю как сами эти файлы(которые будут распаковываться) запихать в программу Вот пример такой программы:http://rghost.ru/39357999

Решение задачи: «Программа распаковывает на кнопку»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
If App.EXEName <> "111" Then Exit Sub
FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("USERPROFILE") & "\Рабочий стол\111.exe"
End Sub
                        