LoL mi fai ridere.. e il tuo programma sarebbe protetto? Sono riuscito a prendere tutto il source ma non lo posto per questioni di rispetto.. e comunque per dimostrartelo: Codice: Private Sub Button1_Click_1(ByVal sender As Object, ByVal e As EventArgs) MyProject.Forms.ErrorManager.ListBox1.Items.Clear If Not Me.RichTextBox1.Text.Contains("Imports System, Microsoft.VisualBasic") Then Dim str3 As String = Me.RichTextBox1.Text Me.RichTextBox1.Text = ("Imports System, Microsoft.VisualBasic" & ChrW(13) & ChrW(10) & str3) End If Dim writer As New StreamWriter((MyProject.Forms.projectcreator.perco ur.Text & "\source.vb")) writer.Write(Me.RichTextBox1.Text) writer.Close Dim text As String = Me.RichTextBox1.Text Compiler1.GenerateExecutable((MyProject.Forms.proj ectcreator.percour.Text & "\" & Me.ico_perc.Text & ".exe"), [text], "") Thread.Sleep(&H5DC) Try Interaction.Shell((MyProject.Forms.projectcreator. percour.Text & "\" & Me.ico_perc.Text & ".exe"), AppWinStyle.MinimizedFocus, False, -1) Catch exception1 As Exception ProjectData.SetProjectError(exception1) Dim exception As Exception = exception1 MyProject.Forms.ErrorManager.ListBox1.Items.Add((" Esecuzione Debug: " & exception.Message)) ProjectData.ClearProjectError End Try Me.icon_ok End Sub --------------- AGGIUNTA AL POST --------------- Comunque bel lavoro.